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Neu! Alle Listings mit, 5 uper-Druck“!] 


Schneider Diskettenlaufwerke 





In unserer heutigen Ausgabe werden 
wir-im Rahmen unserer Systemvor- 


DDI-1“ und „FD-1“ . 


stellung Schneider CPC-464 die bei- 
den Diskettenlaufwerke „DDI-1* und 
„FD-1“ vorstellen. 


Sie erfahren Wissenswertes über bei- 
de Hardware-Zubehörteile und be- 
kommen einen Einblick in die techni- 
schen Möglichkeiten. 

Außerdem werden wir Ihnen die da- 
Amp Diskette „CF2“ vorstel- 
en. 


Beachten Sie bitte auch den Er- 
fahrungsbericht über den Schnei- 
der Matrix-Printer „NLQ 401“. 


we Computer- 


© 


abdeckhaube mit 
integrierter 
Schreibablage 


Für alle Gommodore-Homecomputer 
wurde jetzt eine Abdeckhaube für die 
empfindliche Tastatur vorgestellt. 

Mehr über dieses Produkt finden sie 
auf S.3 in Heftes. 





12jähriger wurde 
ewinner der 
„Goldenen Diskette“ 


Die Goldene Diskette ist der Hauptpreis im großen 
Programmierwettbewerb, der zum zweiten Mal an 
jugendliche Programmierer mit den besten Einfällen 
„anläßlich der Hannover-Messe 1985 vergeben wurde. 
Gesucht wurden die besten Lernprogramme für Schu- 
le, Beruf, Haus oder Freizeit, programmiert auf einem 
Homecomputer. Didaktisch gut aufgebaut und sach- 
lich richtig sollte das Programm sein und die Materie 


unterhaltend und motivierend vermitteln. 
Fortsetzung S. 3 
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NEU: 


report 


Computerabdeckhaube mit integrierter Schreibablage 





Es muß nicht gleich eine Blumenvase 
oder ein Cola-Glas sein, das über 
den Computer kippt und seine wert- 
vollen Innereien ruiniert. Schon 
Staubpartikel können auf längere Zeit 


gesehen die empfindlichen Tastatu- 
ren beschädigen. Daher empfiehlt es 
sich, den Computer bei längerem 
Nichtgebrauch. staubdicht abzudek- 
ken. Hierzu werden im Handel bereits 


vesenieders Formen von weichen 
(Textil-) oder harten {Plastik-}Hau- 
ben angeboten. 

LINDY hat sich nun Gedanken ge- 
macht, wie man derartige Hauben 
auch noch anderweitig nutzen kann, 
besonders in der Zeit, da der Compu- 
ter in Betrieb ist. Die auf dem Bild 
gezeigte Lösung bietet einen interes- 
sarıten Zweilnutzen für die Hartpla- 
stikhaube aus rauchfarbenem, trans- 
parentem Kunststoff. Sie hat eine 
Schreibfläche, ein Ablagefach für 
Notizzettel und ein weiteres Fach zum 
Aufbewahren von Schreibutensilien. 
Die Ausführung für die Gommodore- 
Modelle VC 20, GC 64 und C 16 ist - 
Sofort lieferbar. Unverbindlich emp- 
fohlener Verkaufspreis ca. 20,- DM. 
Im Juli folgt die Ausführung für den 
Schneider CPC 464 für ca. 30,- 
DM. 


Bezugshinweis: 

LINDY liefert nicht an Private. Die 
Haube ist erhältlich in den Compu- 
terabteilungen von Hertie und Kar- 
stadt, in VEDES-Geschäften mit 
Computerabteilung und in guten 
Computershops. 





„Goldene Diskette“ verliehen 


Eine hochkarätige Jury mit promi- 
nenten Persönlichkeiten wie Bundes- 
minister Dr. Heinz Riesenhuber, die 
Wirtschaftsministerin von Nieder- 
sachsen, Birgit Breuel, der deutsche 
. Computer-Pienier Heinz Nixdorf, der 
Präsident des Deutschen Patentam- 
tes, Dr. Erich Häßner, um nur einige 
zu nennen, hatten die schwierige Auf- 
gabe, die besten Programme unier 
den zahlreichen Einsendungen aus- 
zuwänlen. Einer der Gewinner, der 
i 12jährige Joachim Hofer aus Selb im 
I Fichtelgebirge, wurde mit seinem 
Computer-Lernprogramm „Das 
Flaggen-ABC“ mit einer der begehr- 


ten Trophäen ausgezeichnet, Er er- 
hielt aus der Hand von Richard Ker- 
ler, Redaktionsdirektor des Vogel- 
Verlages, „Die Goldene Diskette” für 
hervorragende Programme, die von 
Jugendlichen erarbeitet wurden. Als 
Prämie stiftete die Sharp Electronics 
den „Computer des Jahres 1984, 
einen Sharp PC-5000. 

In seinem preisgekrönten Programm 
beschäftigt sich der 12jährige mit der 
Flaggensprache der Marine. Sein 
Ziel war es, das Flaggen-ABC in 
leichter und spielerischer Form am 
Bildschirm zu vermitteln, Dazu stellte 
er kleine Bootsleute in bewegten Bil- 


Gompute mi 


dern dar, die Botschaften signalisie- 
ren. Mit viel Abwechslung kann der 
„Schüler“ in einem Dialog mit dem 
Computer alle Lernschritte absolvie- 
ren. Dabei sind kleine Rätsel einge- 
baut und natürlich Aufgaben gestellt, 
bei denen der Schüler die richtige 
Flaggenhaltung auf dem Bildschirm 
selbst darstellen kann. Selbstver- 
ständlich — betont der Gewinner - 


‚handelt es sich nicht um ernsthaft 


kommerzieile Software, sondern ein- 
fach um ein Spielprogramm - nur 
zum Spaß. 

Unser Redaktionsteam schließt sich 
den Glückwünschen für alle Gewin- 
ner an und wünscht ihrerseits weiter- 
hin ein qutes Gelingen bei der Ent- 
wicklung Ihrer Hobby-Software. 


‚tips & tricks 


Befehlserweiterung für 


Die nachfolgende Programmroutine 
erweitert das Commodore 64-Stan- 
dard-Basic um die PRINT AT- 
- Funktion. Durch den Befehl „PRINT 
ATX, Y“ istes möglich, verschiedene 
Texte oder Werte an eine bestimmte 


REM 
FORT=471 
IFF£ +F7Z1THENFPRINT"FEHLER 
SYS49132 
REM DATEN 


"PRINT AT" 


Stelle zu transportieren. Sie müssen 
tediglich für die Variable X und Y die 
entsprechenden Werte eingeben, an 
der die Texte erscheinen sollen. Ge- 
startet wird dieser Befehl durch 
RUN. Im Gegensatz zu anderen 


BY DILLINGERSOFT 
521049232: READA:FOKET „As F=f+As NEXT 


IN DATAS":END 


Commodore 64 BASIC 


PRINT AT-Anweisungen gibt der 
Computer bei dieser Version des Be- 


fehls „ILLEGAL QUANTITY ER- 


ROR“ aus, wenn der Wert X oder Y 
außerhalb des erlaubten Bereiches 
liegt. 


DATA1L57,192,141,9,3,169,11,141,8,5,96,165,122,156,173,133,97,134,98,180 | 
° DATAO,352,115,0,217,75, 192,208 25,200, 192,3, 200,243,52,155,183, 224, 20 
DATA176,37,134,211,32,155,183,224 ,25,176,28,134,214,32,108,229,32,121 
DATAO,32,160,170,76,254,167,166,98,165,97,134,123,133,122,76,228,167 
DATA153,65,84,76,72,178 





BASIC-Programm zur Erweiterung des Befehlssatzes 





Das folgende kurze BASIC-Pro- 
gramm erweitert die Befehle des 
Commodore 64 um den Befehl 
„KEY“. Eine der acht Funktionsta- 
sten Ihres Commodore kann durch 


dieses Programm mit einem BASIC- 


Befehl belegt werden. Sie starten das 


REM BASICBEFEHL 


"KEY" 


Programm durch „SYS 49152“. Al- 
lerdings wird „SYS 49152" bereits 
durch das BASIC-Programm ausge- 
führt. Die Form des eigentlichen Be- 
fehls lautet: „KEY X=,BASICBE- 
FEHL’“, Sie müssen nun für den 
Wert X die entsprechende Funktions- 


REM COPYRIGHT BY DILLINGBERSOFT 

REM REAKTIVIEREN MIT 5Y549152 
FORT=49152T049351 2 READAS FOKET „AsL=L+A: NEXT 
IFL{ >22754THENFPRINT"FEHLER IN DATAS":END 


5YS491522NEW 
REM DATAS 


tastennummer eingeben, von der der 


BASICBEFEHL ausgeführt werden 
soll. Danach betätigen Sie die Funk- 
tionstaste, damit der BASICBE- 


FEHL ausgegeben wird. Drücken 


Sie anschließend die RETURN-Ta- 
ste, wird der vorher programmierte 
BASICBEFEHL ausgeführt. 


DATA120,169,192,141,9,3,141,21,5,169,29,141,8,3,1549,127,141,20,3,160 


DATAO,152,152,0,194, 200,208, 250 ,96,155,122,133,97,165, 122,1 


33,98,160 


DATAO,32, 115,0,217,115,192,208, 71, 200,192,53,208,243,32,115,0,201 ,47,144 


DATA13,201,57,176,9,72,32,115,0,201,178,240,4,104,76,8,175,32,115, 


DATA34,208,245,104,56,2353,48,10,10,10,141,98,192,160,0,32,115,0,153,64 


DATA194,200,201 


„34,240,7,192,8,208,241,76,8,175, 76,228, 167 ,75,69,89, 185 | 
DATA97,166,9B,134,123,133, 122 „76,22 8, 167, 165 „197,201,3,144 ‚62,201, 7,178 


DATASB, 201,3, 240,6,56,233,3,76,151,192,169,4,174,141,2,224,1,208,3,24 


DATA105,4,10,10,10,141,172,192,160,0, 


32,211,185,64,194,201,34,240,19 


DATA201,0,240,15,536,233,64,162,1,32,19,254,230,211,164,211,76,171,192 


DATA76,49,234 


Compufes mik 
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0,201 | 


programme 


SEA-ATTACK em 


Entweichen Sie in der Tiefe des Meeres den gefährlichen 


Als Kapitän eines großen U-Bootes 
haben Sie von dem Marine-Haupt- 
auartier die Aufgabe bekommen, so- 
viel wie möglich der feindlichen 
Schiffe und Flugzeuge zu zerstören. 


REM 
REM 


2185 


Wasserbomben 


Für die Erledigung dieses Auftrags 
stehen Ihnen ferngelenkte Torpedos 
zur Verfügung, die Sie sicher und 
trefigenau ins Ziel bringen müssen. 
Aber auch Ihre Feinde sind bewaffnet 
und hindern Sie durch den Abwurf 
von gefährlichen Wasserbomben 
ständig an der Ausführung Ihres Auf- 
trages. Weichen Sie also durch ris- 







iS 2 2 2 200 2 2 2 2 2 20202 2 2 2 2 205022 2 2722 02 27020203 
KERRRERERK SEA-ATTACK KERRKERKHHR 


WARTEN SIE BITTE EINEN MOMENT" 
READA: FOKEISBF1FT „As L=L+A: NEXT 


WASSERBOMBENGESCHWINDIGKEIT (1-93 " 


BEM EHBERRRTHRHIHIHIHH 
40 REM ##&xx0# FROGRAMMIERT VON seraen: 
SO REM FUHREN THINK IH TH I N EHER 
&0 REM ####x## KLAUS DILLINGER #araax#% 
7O REM SRH HIER 
BO REM ##* ON THE 17.TH OF MARCH 1985 #* 
70 REM OBER NEN EHEN RI HENH 
100 v=53248:P=54272: FDKEV+ZI ,62 POKEV+32,2 
105 FRINT"LaIKe 9 
110 IFL=OTHENFORT=1T0513: 
115 IFL{>31374THENFRINT"FEHLER IN SPRITE-DATAS"SEND 
116 
i18 PRINT"FEHLER IN MASCHINENPROSRAMM-DATAS" SEND 
120 
130 
140 GETAF: IFAF=""THENL4O 
450 IFASELAFF<SAIFDRASC (AF} >57THEN140 
151 FRINT' LA 
132 GETWF: IFW$=""THENIS? 
1533 IFASC WE) <4FDRASC (UF) 57 THENIS2 
155 POKEV+17 ,PEEK (V+17) AND?23F 
1&0 FORT=10241T01503: POKET,1&0: POKES4272+T ,14: NEXT 
170 FORT=1T04: FOKEV+T#2+1 ,133:NEXTs POKEV+11, BO: FOKEV+IS 
190 IFG=OTHENFORT=V+39TOV4A6: :READA:POKET,A: NEXT: G=1 
300 
305 
306 
307 FOKE47719,20-VAL (WEI #2 
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kante und schnelle Unterwasser- 
manöver der dauernden Bedrohung 
aus. Sollte es Ihrem Gegner trotzdem 
gelingen, Ihr U-Boot zu treffen, ha- 
ben Sie noch immer die Möglichkeit, 
mit zwei weiteren U-Booten ihren 
Befehl zur Zufriedenheit der Kom- 
mandatur auszuführen. 

Zu Beginn des Spieles können Sie 
durch Eingabe verschiedener Ziffern - 
den Schwierigkeitsgrad und die Was- 
serbombengeschwindigkeit wählen. 


IFO=OTHENFORT=49152T649884: READA: QO=04+As POKET „Ar NEXT: IFO=SFSAOFTHENL2O 


FORT=OTD7:FOKE2040+T „248+T: NEXT: FPOKEV+29 , 223: POKEV, 170: FOKEV+1,232 
PRINT"KISE" TAB (5) "SCHWIERIGSKEITSGRAD 11-79)": POKEV+14,84 


„‚i0O0: FOKEV+15,225 


POKEV+22 „FEEK (V+22) AND247 : FOKEV+17 ‚PEEK (V+17) OR16: POKEV+21 „255: POKEV+16,0 
POKEP+24 ,15:FOKEF+5, 15: POKEP+4 „34: POKE182,0: POKEP+12, 13: POREP+1Z,250 
POKEP+19, 15: POKEF+20 , 250: POKE247 „O: FPOKEZ48,, 0: FOKE749 „0 


programme 


310 FORT=1T06: POKEV+T#2,30+1T%30: NEXT: A=3: FOKE49442 ,50-VAL (A$) #5 
320 FOKEV+31,05SY849794: A=A-1: POKEV+21,1: FOKEP+4 ,O: FOKEF+18,0 

322 POKEP+11,179: POKEF+9,8: FORY=1T0400: NEXTSFOKEF+8,3 

323 POKEP+11,128: FORT=1504T02022: POKET ,32: NEXT: FOKEF+24 , 15: POKEV+Z1 ,255 

324 IFA<>OTHENS2O | 

325 POKEV+21 „0: POKEV+32,0:POKEV+33,0 

326 PRINT"LJEE" TAB (S) "SIE ERREICHTEN"; 

327 PRINTFEEK (247) +PEEK (248) #254+PEEK (249) #4074-2"FUNKTE" 

328 IT NOCH EIN SPIEL (J/N)" 

330 BETA$: IFAF< >" J"ANDAF< "NY THENFSO 

335 IFA$=" J"THENPOKEV+3Z, 5: POKEV+32,2:5010120 

1000 REM SFRITE-DATAS 

1001 DATAO,0,0,0,0,0,0,0,0,0,0,192,0,0,128,0,0,128,0,0,128,0,3,240,1,67,240 
1002 DATA1,67,240,1,67,240,63,255, 252,127 ,255,254,255,255,255,295,295,255 
1003 DATA255,255,255,127,255,254,63,255,252,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1004 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,75,1,224,56,6,227,192,24,35,192,224,39 
1005 DATA192,224,127,255,255,63,255,248,31,255,240,15,255,224,7,255,192,0 
1006 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0 
1007 DATAO,12,0,0,3,0,0,32,240,0,16,240,0,12,240,0,255,255,0,31,254,0,15,252 
1008 DATAO,7,248,0,0,0,0,0,0,0,0,0,0,0,04,0,0,030,0,0,0,0,0,0,0,0,0,0,0,0,0 
1007 DATAO,0,0,0,0,5,0,0,24,0,0,96,16,7,128,8,7,128,6,7,128,6,7,128,255,255 
1010 DATA255,127,255,2532,63,255,248,31,255,240,15,255,224,7,255,192,3,253 
1011 DATA128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,24,0,0,12,0,0,& 
1012 DATAO,1,3,240,67,1,240,134,1,247,60,1,247,60,255,255,255,31,255,254,15 
1013 DATA253,252,7,255,249,3,255,240,1,255,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1014 DATA24,0,0,28,0,0,14,0,0,23,252,0,23,130,0,23,252,64,15,172,96,31,200 
1015 DATA112,31,196,31,255,255,239,255,248,51,255,224,112,31,224,112,31,224 
1016 DATA96,15,252,64,23,194,0,235,252,0,23,0,0,14,0,0,28,0,0,24,0,0,0,53,128 
1017 DATAO,22,0,0,12,0,0,58,0,0,201,0,0,8,128,3,232,0,4,28,0,4,30,0,63,255 
1018 DATAL33,255,255,250,127,255,245,63,248,0,16,14,0,144,17,0,255,255,0,0 
1019 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,7,0,0,740,0,7,0,0,7,0,0,7,0,0 
1020 DATA15,128,0,5,0,0,0,0,0,10,128,0,0,0,0,5,0,0,0,0,0,2,0,0,0,0,0,0,0,0 
1021 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

1200 REM MASCHINENPROGRAMM-DATAS 

1201 DATA173,1,220,41,4,208,27,169,30,205,0,208,208,7,173,15,208,41,1,240 
1202 DATA13,206,0,208,173,0,208,201,255,208,3,206,16,208,173,1,220,41,8,208 
1203 DATA22,173,0,208,201,32,208,7,173,16,208,41,1,208,8,238,0,208,208,3,238 
1204 DATA16,208,96,165,182,240,6,198,182,206, 15,206, 76,1732,1,220,41,16,208 
1205 DATA248,149,80,133,139,169,244,141,15,208,133,182,173,0,208,24,105,4 
1206 DATA141,14,208,173,16,208,41,1,240,9,1735,16,208,7,128,141,16,208, 96,175 
1207 DATAO,208,201,252,176,240,173,16,208,41,127,76,113,192,162,2,154,188 
1208 DATA254,0,208,240,35,189,0,208,201,80,240,39,232,232,6,188,222,0,208 
1209 DATA189,0,208,201,255,240,50,189,0,208,240,58,252,232,6,188,724,14,208 
1210 DATA217,96,165,188,13,16,208,141,16,208,75,148,192,165,188,45,16,208 
1211 DATA240,210,155,188,73,255,45,16,208,141,16,208,169,0,157,0,208,76,148 
1212 DATA192,155,188,73,255,45,16,208,141,16,208,76,167,192,165,188,45,16 
1215 DATA2O8,208,191,165,188,12,16,208,141,15,208,169,80,157,0,208,76,167 
1214 DATA19?,165,139,208,1,95,198,139,169,129,141,4,212,165,139,141,1,212 
1215 DATA208,241,169,0,141,1,212,169,128,141,4,212,96,173,30,208,41,128,240 
1216 DATA249,162,2,134,141,173,14,208,56,2332,52,133,174,24,105,56,133,175 
1217 DATA189,0,208,197,174,144,4,197,175,144,41,173,16,208,41,128,240,14,173 
1218 DATA1L4,208,201,38,176,7,189,0,208,201,0,176,20,173,14,208,56,233,16,221 
1219 DATAO,ZOB,144,9,232,272,6,141,224,14,208,205,796,165,141,45,16,208,240 
1220 DATA10,173,16,208,41,128,240,233,76,122,193,172,16,208,41,128,208,223 
1221 DATA173,15,208,56,233,28,155,87,24,105,28,133,88,189,1,208,197,87,144 
1222 DATA2OZ,197,89,176,199,165,141,41,213,240,25,1589,80,157,0,208,165,141 
1223 DATA13,16,208,141,16,208,169,0,141,15,208,133,182,169,64,133,97,96,169 
1224 DATAO,157,0,208,185,141,73,255,45,16,208,76,162,193,165,77,208,1,96,198 
1225 DATA97,240,17,165,97,201,63,208,245,1697,129,141,11,212,169,5,141,8,212 
1226 DATA96,169,2,141,8,212,169,128,141,11,212,96,230,187,165,187,201,5,240 
1227 DATA1,96,165,152,41,3,170,232,134,187,138,10,170,168,169,1,10,202,202 
1228 DATA2O8,251,45,16,208,240,14,185,0,208,201,64,176,224,169,32,133,179 
1229 DATA76,31,174,185,0,208,201,24,144,210,169,0,133,177,185,0,208,233,16 
1230 DATA74,74,74,24,101,179,168,169,42,153,224,5,76,198,180,240,1,76,169 
1231 DATA10,133,190,1689,224,160,5,132,95,132,96,169,7,160,192,133,71,132,90 
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1232 DATA133,89,160,232,132,88,32,191,16%, 


Programme 


160,539,169,52,153,224,5,1558,208 


1233 DATA250,185,192,7,201,42;240,68,200,192,39,208,244,96,169,15,133,186,9& 
1234 DATA173,31,208,41,1,208,248,162,0,160,0,232,20B,253,200,192,5,208,248 
1235 DATA32,0,192,32,64,192,32,132,192,32,248,192,32,22,193,32,192,193,32 
1236 DATA229,193,32,49,194,32,176,194,1&5,97,201,60,208, 10, 230,247,208,6,230 
1237 DATA248,208,2,230,249,76,111,194,165,186,208,1,98,198,106,240,22,165 


1239 DATA184,201,4,208,245,169,0,141,15,212,169,112,141,14, 


212,169,129,141 


1259 DATA1B,212, 96, 159,1,141 ‚15,212,169, 0, 141, 14, 212,169, 128, 78, 2053, 194, 1) 


1500 REM FARB-DATAS 
1301 


DATA1,13,7,7,15,13,7,7 





| SPACE AG E für den Commodore 64 





Ein Geschicklichkeitstiug durchs All 





SPACE AGE ist ein Weltraumspiel, 
bei dem es ausschließlich auf Ihre 
Geschicklichkeit ankommt, Sie müs- 
sen nicht, wie in den meisten Spiel- 
varlanten, feindliche UFOs abschie- 
Ben. Diesmal ist es Ihre Aufgabe, 
Meteoriten im All zu umfliegen und 
einen Zusammenstoß zu vermeiden. 
In den höheren Sektoren nimmt die 
Geschwindigkeit dieser Meteoriten 
ständig zu und dadurch erhöht sich 
der Schwierigkeitsgrad. Auch erfah- 
rene Spielespezialisten kommen hier 
schon ganz schön ins Routieren. Ne- 


ben diesen Schwierigkeitsgraden ist 


auch eine hervorragende Grafik mit in 


dieses Spiel eingebaut. 


Als einige Besonderheiten wären 
zu erwähnen, daß 


-die linke Säule auf der rechten 


Bildschirmsäule den 
wechsel angibt, 

- die rechte Säule den Super-Bonus 
anzeigt, 

-durch drücken der F1- Taste das 
Spiel in den Pause-Modus über- 
geht, welcher durch drücken der 


Sektoren- 


F7-Taste wieder aufgehoben wer- 

den kann. 
Das Programm läuft auch auf Kas- 
sette, wenn die Geräienummer in Zei- 
le 260 des Data-Programms von 8 
auf 1 geändert wird. Funktionstüchtig 
ist das Programm nur in der zweiteili- 
gen Version, da sonst das Ende des 
Programms im neuen Zeichensatz 
liegen würde. Das Hauptprogramm 
muß mit dem Namen „SPACE AGE“ 
abgespeichert werden, da es unter 
diesem Namen vom Dataprogramm 
nachgeladen wird. 
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Compubes mi 


OO REM Karma TFFERTER HERE ERHFRHNNHN 9 DATA 700 z 208 S 249 3 230 a = A FZO R E f POZ 

1 REM ** DATAFROGRAMM FUER SPACE AGE ** 10 DATA 208,242,104,133,1,173,24,208 

2 REM RER EHER INTER ii DATA 41,241,9,12,141,24,708,88,96 
ES 122 

4 PRINT"L":FOKEST280,0: POEES3281,0 13 : 

2: 14 DATA 255,129,189,161,161,189,129,255 
6 DATA 120 ,185,1,72, 11728131525 1,0167 15 DATA 0,254,754,198,254,198,198,198 
7 DATA 208,133,3, ‚169, ‚48,133,5,160,0 15 DATA 0,254,254,198,252,198,254,254 
8 DATA 132,2,132,4,162,32,177,2,145,4 : 17 DATA 0,254,254,198,192,198, 254,254 


Programme 


DATA 0,252,254,198,1978,199, 254,252 87 : 

= DATA 0,254,254,192,248,172,254,254 88 DATA 63,48,97,797,195,175,195,195 

20 DATA 0,254 ‚254 ,192,248,192.192,192 87 DATA 178,178,140,140,24,24,31,31 

21 DATA 0,254,198,192,222,198,254,254 70 DATA 120,120,49,49,99,997,227,227 

22 DATA 0,2398,238,278 „254,2 38,238,238 1: 

23 DATA 0,124,124,56,565,56, 124, 124 72: 

24 DATA 0,30,30,6,5,198,198,254 108 : 

25 DATA 0,206,220,248,240,248,720,20& 107 2 

26 DATA 0,192,172,192,192,192,254,254 110 BATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
27 DATA 0,2508,254,254,214,178,198,178 111 DATA 0,0,0,0,0,0,0,126,0,3,235,192 
zZ DATA 0,230,230,746,254,7222,205,198 112 DATA 31,255,248,127,255,254,21,255 
27 DATA 0,254,254,199,1956,198,254,254 113 DATA 248,53,255,192,0,1285,0,0,0,0,0 
30 DATA 0,254,254,198,754,192,192,197 114 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
51 DATA 0,2594,254,198,214, 206, ,254,754 115 DATA 0,0 

32 DATA 0,754,254,198,254 248.22 „205 ila : 

33 DATA 0,254,254,192,254,5,254,254 117 z 

34 DATA 0,254,254,56,56 56,56, 56 119 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,12 
35 DATA 0,238,239,2798,238,2298,7254,254 119 DATA 0,0,33,0,0,74,0,0,145,0,0,68 
36 DATA 0,238,238,238,238,278,124,56 129 DATA 0,0,41,0,0, 64,0, 0,24, 24,04 ö, o 
37 DATA 0,199,199,214,254,254,238,198 121 DATA 0,0,0,0,0,0,0,0,0,0,0, d, ö, ö, 0 
38 DATA 0,238,238,108,56,108,239,238 122 DATA 0,0,0,0,0,0,0,0,0 

37 DATA 0,239,238,254,124,56,56,56 123 3 

40 DATA 0,254,254,28,56,112,254,254 ‚Id: 

a. 125 DATA 0,21,0,0,66,0,1,8,80,0,82,128 
a2 : 126 DATA 2,127,48,0,0,64,12,0,144,2,0 
43 DATA 0,254,254,198,198,199,254,254 127 DATA 72,4,0,16,0,0,32,2,0,72,1,192 
44 DATA 0,124,124,54,56,56,124,124 128 DATA 32,2,68,64,1,26,128,0,65,0,0 
45 DATA 0,254,254,6,254,172, 254,254 129 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
46 DATA 0,254,254,6,62,6,254,254 150 DATA 0,0 

47 DATA 0,224,224,230,254,254,6,6 131 : 

48 DATA 0,254,254,192,254,6,754,254 152 : 

49 DATA 0,254,254,192,254,198,254,254 135 DATA 0,20,0,0,85,0,0,105,0,0,105,0 
50 DATA 0,254,254,6,6,6,6,6 154 DATA 0,85,0,0,85,0,0,20,0,12,20,48 
51 DATA 0,254,254,199,124,198,254,254 155 DATA 12,65,498,12,85,48,153,85,240 
52 DATA 0,254,254,198,254,6,6,6 136 DATA 12,1725,48,12,125,49,12,125,48 
53. 137 Data 12, 125,48,12,125,48, 12,125, 48 
54: 138 DATA 15,85,240,12,85,48,12,0,48,12 
55 DATA 255,3,3,3,31,3,3,3 137 DATA 0,48 

56 DATA 0,0,24,80,102,195,195,255 140 5 

57 DATA 255,255, 192 „216,216,217, 217,216 191 : 

58 DATA 255,255,3,3,243,155,131,243 142 DATA 0,20,0,0,85,0,0,105,0,0,105,0 
57 DATA 216,217,216,223,223,192,255,255 143 DATA 0,85,0,0,85,0,0,20,0,48,20,12 
&0 DATA 27,155,243,195,195,3, 255,255 144 DATA 48,85,12,48,85,12,63,85,252 
&1 DATA 255,192,192,192,192,172,192,192 145 DATA 48,125,12,48,125,12,48,125,12 
62 DATA 0,0,0,253,49,49,49,49 14& DATA 48,125,12,48,125,12,48,125,12 
63 DATA 0,0,0,248,168,1658,168,168 147 DATA 63,95,252,48,85,12,48,0,12,48 
64 : 148 DATA 0,12 

65 : 149 

66 DATA 15,15,12,12,24,24,48,63 150 2 

67 DATA 252,248,0,0,0,0,1,241 158 : 

68 DATA 127,127,97,97,195,195,254,254 157 2: 3 

&9 DATA 143,1473,140,140,24,24,63,63 160 DATA 162,0,1897,0,192,201,1,240,8 
70 DATA 241,241,49,49,979,77,170,198 161 DATA 232, 224 ı8,208,244,76,76,173 
7ı DATA 254,254,134,128,0,0,0,0 142 DATA 56, 189, 26,172,233,1,1597,26,1972 
72 DATA 63,63,48,98,75,96, 248,248 1&5 DATA 144,3,76,86,192,189,16, 192,157 
73 DATA 192,192,192,0,0,0,0,0 164 DATA 25,172,142,24,192,189,8,192 
ga. | 165 DATA 201, 1,240,31,201,2,240, 42,201 
75 DATA 63,0,0,0,0,0,127,255 ieh DATA 3,240,50,201,4,240,51, 201,8 
7& DATA 241,49,99,99,198,198,198,198 157 DATA 240,69,201,7,240,77,201,8,240 
77 DATA, 254,128,0,0,0,0,0,0 165 DATA 88,201,9,240,96,76,85,192,32 
78 DATA 63,48,97, 97 "195,195,195,195 167 DATA 7,193, 32,26,193,32,29,192,174 
7% DATA 198,198, 120, 140,294,24,31,31 170 DATA 24 »1972,76,86,192,22,7,193,2 
BO DaTa 0,0,1,1,2,99 ,227 1227 171 DATA 39,1723,1794,24,192,758,86,192 
81 DATA 248,192,128,178,0,12,252,252 172 DATA er 13,193,32,29, 195 
BI: 173 DATA 174,24,192,76,868,192,22,7,193 

j 174 DATA 32,26,193, 174, 24,192,76 „88,192 

84 DATA 15,15,12,12,24,24,63,653 175 DATA 32,7,193,82,13,193 „174,24,192 
85 DATA 241,241,47,47,99,97,198,178 17& DATA 768,86,192,52,7,193,32,26,173 
B& DATA 254,254,1374,128,0,0,0,0 177 DATA 32,48,193,174,24,192,76,86,192 
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178 DATA 32,7,193,22,48,1953,174,24,192 222 DATA 192,141,55,192,167,128,141,52 
177 DATA 76,85,192,32,7,1935,32,13,193 222 DATA 192,141,60,192,169,0,141,56 
180 DATA 32,48,193,174,24,192,75,86,192 24 DATA 192,169,8,141,57,192,141,59 
181 DATA 173,24,192,10,168,96,24,177 225 Data 192,141,61,192,141,63,192,169 
182 DATA 247,105,1,145,247,144,3,75,57 226 DATA 236,133,249,169,194 „133,250 
182 DATA 193,96 ,56,177,247,232,1,145 227 DATA 96 

184 DATA 247,176,3,76,57,193,75,200,24 228 : 

185 DATA 177,247,105,1, 145,247 ,96,200 22% DATA 0,0,255,255,195,195,255,255 
154 DATA 564,177,247,233,1,145,247,96 2350 DATA 0,0,0,0,0,0,0,8 

187 DATA 174,24,192,169,1,202,48,4,10 23 : 

188 DATA 76,62,193,77,16,208,141,16,208 233 ı 

187 DATA 96,205,40,192,48,5,152,0,75  _ 234 FOR A=51200T051252:READ DT 

190 DATA 79,192,169,6,141,40,192,76,47 235 FOKE A,DT:NEXT=SYS 51200 

171 DATA 234,32,115,0,201,33,240,9,32 2b :. 

192 DATA 121,0,7&,231,157,74,8,175,22 37 FOR A=122881012505+READ DT 

193 DATA 115,0,201,138,240,29,201,144 238 FOKE A,DT:NEXT 

194 DATA 240,7,201,197,240,81,76, io7 237 3 

195 DATa 195,32,115,0,32,158, 183.224 249 FOR A=1i2572TG1Z751:REABb DT 

196 DATA 8,176,225,169,0,1537,0,192,7& 241 FOKE A,DT:NEXT 

177 DATA 174,167,32,115,0 „=2,158,18% 242 3 

198 DATA 224,8,176,207,169,1,157,0,192 245 FOR A=12568T012639:RERD DT 

197 DATA 142,41,192,32,253,174,32,15B N Or 

200 DATA 183,224,10,176,187,138,240,18& er 128087012975: READ DT 

201 DATA 201,5,240,6,174,41,192,157,8 SEELE As DEANERT 

202 DATA 192,32,252,174,32,159,193,138 ET Bunt 262 

203 DATA 174,41,192,157,15,192,157,26 EI TEN ee 

204 DATA 192,76,174,167,32.115.0,32, 158 249 RiBI=247:R(9) =248:R(10)=247 

205 DATA 183,224,8,144,3,76,8, 175,142 Ze SSR SITE REED DT 
207 DATA 224,50,176,240,232,142,46,192 za2 : 

208 DATA 173,47,192,10,170,189,48,192 257 FÜR A=492297049798:READ DT 

209 DATA 133, 251,232,189, a8 „192, 3,252 254 F=F+DT:FOKE A,DT:NEXT:ıSYS 47700 
210 DATA 32,126, 174,173,46 ‚192,170,2 235 8 

211 DATA 240,14,24, 165,249, 105,63,13 ı  2u6 FOR A=12776T0127915READ DT 

212 DATA SS dar aa 0 20 ie i 257 FOKE A,DT:NEXT 

213 DATA 140,0,177,249,145,251,200,192 258 = 

214 DATA 64,208,247,78,173,167 , 234,234 z=57 38 

215 DATA 169,94,141,8,3,169,193,141,9 | 259 LOAB"SFACE ABE",S 

21& DATA 3,169,77,141,20,3,169,192,141 261 : 

217 DATA 21,3,169,0,133,247,169, 208,132 282 FRINT'S Bon ei" 
218 DATA 248,167,192,141,48,192,141,54 263 FRINT'E u RT BE Eu 4 ne 


219 DATA 172,191 ,62,192,169,2,141,49 
220 DATA 192,159,64,141,50,192,141,58 
221 DATA 192, 169,3,141,51,192, 121,55 


IS LOADING..." 
264 RETURN 





10 REM HERE EHE 
11 REM ###+ SPACE AGE HER 
1ZE REM »#* CONCEFT AND DESISEN EY ###+ 
13 REM ###= WVENS WALTER HUNTEMANN  8# 
15 REM HERREN EHER HHER HIERHER KR RN HH 
1& : 

17 FRINT’.":FOKESSZBO,0O: NEOEE2229332 


or 
a 


254 

Sn 
36 DATA 7,2,0,3,0,0,230,12,2,0,43,0,0,1972,168,2,0,6,0,0,643,0,30 

387 FRINTEHRE (93 : FORA=0TO22: READDT : FCKES427I+HA,DT:NEXT 

z58 : 

2597 3 

250 S5YS49700: G0S5UR 7800: GRESLB 9500 - 

bi ı: 

262 RE=245:CA=132197: Ch=13422 

243 51=54272Z:FL=5SI: FH=51I+1:T_=251+2: TH=SI+3:Wi=S1+4:A1=S1Ir9:H1=51#+68:L1>=51I+724 

2000 z 

2001 FRINTY"II "TB "DO Ir” 

2002 PRINT" "TABEI2B) "N ea 1995 '(" 
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2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
201& 
2017 
2018 
2019 
2020 
2021 
2022 
20723 
2024 
2027 
2078 
2025 
2030 
2031 
2032 
20533 
2103 
2104 
2105 
210& 
2107 
2108 
2109 
2110 
2113 
2118 
2120 
2122 
2174 
2125 
2176 
2127 
2128 
2179 
2130 
2131 
2132 
2133 
2134 
2135 
2154 
2138 
2139 
2141 
2200 
27220 
2240 
2240 
2270 
2za0 
2300 


FRINT" "TAB(ZBH "| ’r 

PRINT" "TAB (28H "TI" 
PRINT" "TABtZO}") KBCONTROL Ki" 
PRINT" ["TABtZ8 " gu" 


FRINT" "TAB(283" SHARE RS 
FRINT" "TAB(ZEI "| HSyabizE rc ae 
FRINT" j"TAB(ZBI "N Mac ETRDTE 
FRINT" "TAB{293" WISDEEE AUZSRSZE 
FRINT" "TABIZH"T SE Hase 
FRINT" "TAB Ba ur ae 
PRINT" "TAB (29 "7 are BERZUSZE 
PRINT" "TABtza}” HSSHLZE im En 6 
FRINT" "TAB" Sir KEFEWNSES 
PRINT" "TRABiZ"N HEIKE re | 


PRINT" "TABi287"- 
FRINT" "TAB(28)7 "| 
FRINT" "TABtZ8" 


FESTEN DSU HRSavEzE 
Fa LER DEU Humazcze 
HE Dei HamLize 


PRINT" I"TABCZBI"] GENE NNdZE 
PRINT" |"TAB (28) ") 

PRINT" |"TAB(Z8)"} BSCORE: 

PRINT" "TAB(287 "] 

PRINT" IH "TABLZEI" HIER "4565" 
GOSUB 7800 

PRINT" ERIIBB LION SOFTWARE" 
FRINT' al FRESENT 
FRINT'EREZE} U FE) 
PRINT" BER u Et 


FRINT'REEpIBI CONCEPT AND DESIGN BY 
FRINT'ERBI JENS WALTER HUNTEMANN 
FRINT" EB @ 17859 LION SOFTWARE 
PRINT'ERZSBI FRESS FIREBUTTON TI START" 


V=-53248: FOKE2040,248 
FOKEV+37,11=: POKEV+58 „7: FOKEV+39,7 


-POKEV+28,1: POKEV, 1728: FOKEV+1 , 727 


FOKEV+rZ21,1 


GOSUB 9500 

FOR A=0TGZ1:FOKE 214,A: PRINT 
PRINT’ Me 
NEXT=POKE V+21,1:6G0SUB 9100 


FÜR A=2041T02047:POKE A,24S: NEXT 
POKE V+2,35:POKE V+3,1 

POKE V+4,5&:POKE V+5,0 

FOKE V+6,97:POKE V+7,0 

POKE V+B,129:POKE V+9,7 

POKE V+10,159:F0OKE V+ll,li 

POKE V+12,190: FOKE V+13,21 

POKE V+14,221:POKE V+15,5 

POKE V+21,255 


FÜKEV+350,0:50SUB 8000: GOSUB 21000 
C=PEEK (553203 :FPDEE Vr30,0 

IF tCANDA) AND CANDY <>OTHEN: !STOPO 
IF{CANDS}=OTHEN: !RLNGO „4,4 
IF{CANDSI=OTHEN: !RUNG „4,4 
BEIP$S IFFF=" B" THENGDSUB 20000 


SC=-Sc+r5: RE=SRE+1: IFREFZ4FTHENRE=248 


GCompure mi 


Die Floppy des 
Commodore 64 
und VC-20 


von Dr. Hans Riedl 
und Claus Hentschel 


Der Commodore 64 und sein kleine- 
rer Partner, der VC-20, sind die Stars 
unter den Mikrocomputern. Durch 
den Einsatz der Floppy-Disk VC- 
1541 jäßt sich der Anwendungsbe- 
reich beider Geräte noch erheblich 
erweitern. Man könnte also sagen, 
daß die Floppy VC-1541 mit eines 
der wichtigsten Hardware-Zubehör- 
teile dieser beiden Systeme ist. 
Dieses Buch des Kiehl Verlags ist 
eine Einführung in die Arbeitsweise 
der Floppy-Disk: Hier erfährt der 
Einsteiger im Detail, wie die Informa- 
tion auf der Diskette abzuspeichern 
ist und was man über die verschiede- 
nen Dateitypen wissen muß. Interes- 
sant sind — besonders für den bereits 
fortgeschrittenen Anwender — die Bei- 
träge über Direkt- und Maschinen- 
programmierung. Das Buch stellt - 
eine echte Bereicherung für jeden, 
der einen Commodore 64 oder VG-20 
besitzt, dar. Wollen Sie also mehr 
über die Floppy-Disk VC-1541 er- 
fahren, lesen Sie in diesem Buch. 





Kieht Verlag Ludwigshafen, ISBN 
3 470 80431 1, Preis 29,80 DM 
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programme 


2320 FOKE 2046, RE:FOKE ?14,72:FRINT 

25340 PRINT"E"TAB(32) 550 

2380 : j 

2380 IFFEEK(WI<42 THEN: 'STOPO: GOSUBZ1000: FOKEV, 128 

2400 IEPEEK [V} Z217THENZ2STDEO: : GOSUR21000: FOKEV, 1728 

2420 

2440 IFPEEK (V+30) 2 >OTHEN 9800 

2460 : 

2480 CA=CA+1:FOKE CA,0: IFCA>=13431THEN15000 

2500 CB=CB+.2Z:FOKE CB,0: IFCB>=13545THEN15000 

7713 POKEW1,6:T15=-10: 50T0 27200 

77937 3 

7800 PDEESI+4,0: FOKESI+11,0:FOKESI+18,0 

7801 !STOF 0:!ST0P 1:'!ST0P 2:2 !5T0PF 3 

7802 !5TOP 4: !5T0PF 5: !15STOP 8: !5T0F 7 

7803 RETURN ' 

7804 : 

BO00 FOKESI+4,55: FOKESI+11,65: POKESI+18,65 

8001 !RUNI,2,6-GE: !RUNZ,2,8-GE 

5002 !RUNZ,2,7-GE: !RUN4,2,5-BE 

8003 !RUNS,„2,8-GE: !RUNS,2,7-5E 

9004 !RUN?,„2,8-GE 

8005 RETURN 

7000 FOR A=133207013543:POKE A,255:NEXT 

F001 > 

11040 RETURN 
7002 RETURN 15000 a 
9003 15010 GOSUB 7800 
1098 FOR A=6T021:FOKE 714,A: PRINT 15011 GE=GE+1: IFGE>STHENGE=S:GOTD 17009 
9101 FRINTTABCINT(RND (13827) +1) "a5" 15612 POKE214,8: PRINT 
7102 FRINT"O"TABEINT (RND (1) ZI +13) "a" 1 15013 PRINTTAB (6) "IENTERING SECTOR"; ; SE 
91053 NEXT 153020 FOR CA=13451 TO 13320 STEP-1 
7104 x: 15040 SC=SC+5: POKE 214,22=:FOKE CA,25 
7105 RETURN :15050 PRINT: PRINT"E"TAR (32) ; Sc 
91068 : 15080 GOSUBTIOOO:NEXT 
27500 EC=PEEK (56320) j 15061 POKE214,89:PRINT 
7510 IF(CANDIA5=OTHEN RETURN 15087 PRINTTAB (A) “ “ 
7320 GOTO 9590 15090 GÜSUB 8000 
9530 : 15100 60TO 27200 
7800 GOSUB 7800 15120 # 
9820 ZU=ZU+1 13000 GOSUB 7800 
7845 POKE 1657+ZU#40,32 15010 FOR CB=13543 TO 13432 STER=-1 
7850 POKEL1,24:POKEA1, 15: FOKEHL1,0 14020 SC=SC+H10:POKE 214,22: FOKE CB,255 
9855 POKEFH,40: POKEFL „200: POKEWL, 127 15040 PRINT: PRINT"E"TAB (3 2)3SE 
978450 FOR A=0T013: FOR I=0T01 15040 GOSUB21000:NEXT 
7880 POKE 2040,246+1 158080 GOSUB 8000 
79700 NEXT:NEXT: FOKEW1 ,O: FÜKEAL,O 1&1090 GOTO 2200 
7920 POKE V+21,1:POKE 2040 ,RE 14110 
7940 IF ZU=4THEN10000 17000 POKE214,8:PRINT 
GI50 ud 2125 17010 PRINTTAB (6) "IIFLYING IN SECTOR 5" 
7780 17020 GOTD 15070 
10000 IF SE>HI THEN HI=SC:BEOSUB 11000 20000 + 
10610 POKE214,4:PRINT Z0091 SOSUB 7860 
10020 PRINT" j BGAME OVER" 20062 PRINT"ERRBIFAUSE>> >" 
10040 GDSUB 9500: PRINT"L":POKFE V+21,0 i 20003 GET P£: IFP$="BI" THEN20005 
10040 GOSUE 7000 20004 GOTO 20903 
10080 SC=0: 7U=-0:5BE=0:G0T0 247 | 20005 FRINT’ERB] - " 
19100 :z 20090& SOCSUB BOOO 
11000 POKE214,22: PRINT 20007 RETURN 
11020 PRINTTAB (ZI 3 "EQHI" . ne = 
21000 TS=TS+1:POKEL1,15:POKEA1,15:FDOKEHI „DO: FOKEFN,TS: FOKEFL „200: POKEW1,5353 
21001 RETURN 
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„Compute mit“ Ratgeber 
was jeder wissen sollte... u 
Pflege und Reinigung von Mikrocomputern 


Die Reinigung und Pflege von Mini- 
und Personalcomputern stellt ein be- 
sonderes Problem dar, da diese Ge- 
- räte in einer „normal verschmutzten“ 
Umwelt eingesetzt werden und nicht 
in einem separaten Computerraum. 
Für jeden EDV-Benutzer ist der 
Kampf gegen die Verschmutzung von 
großer Wichtigkeit. Von außen dro- 
hen Rauch, Staub, Öl, Feit, Teer, 





Fusseln usw., die sich auf Bildschir- 
men, Magnetköpfen und Platten- 
oberflächen absetzen. Systemimma- 
nent droht die Gefahr der Bildung 
einer Oxydationsschicht, die auf 
Floppy Disketten hervorgerufen wird 
durch den Kontakt des Magnetkop- 
fes auf der Plattenoberfläche. Diese 
Verschmutzungen bedeuten für den 
EDV-Anwender: 


- Fehlerhafte Weitergabe 
von Daten 

- Datenverlust 

- Zerstörung integrierter 
Schaltungen 

- Geräteausfälle 

- Kostspielige Wartung 

- Zeitraubende Neueingabe 
von Daten 


Jeder EDV-Anwender kann sich eine 


Vorstellung der Problematik dieser 
Verschmutzungen machen. Wir emp- 
fehlen Ihnen deshalb für die Bekämp- 
tung folgender Verschmutzungsarten: 


- Reinigung der hochempfind- 
lichen Magneiköpfe 

- Entfernung des Schmutzfilms 
von Terminal-Bildschirmen 

- Gründliche Reinigung des 
Gehäuses 

- Gefahrlose Enifernung von 
störender Staubpartikel 


nur die im Handel üblichen Reini- 
gungsprodukte zu verwenden. Bei 
unsachgemäßen oder falschen Reini- 
gungsmitteln können mitunter große 


- Probleme für den Umgang mit Daten 


entstehen. 


Gesehen bei: Fa. Sigmatronics 
GmbH, Martinsgasse 8, 5000 Köln 1 





Der Heimcomputer ist Herausforderung 
an Kreativität, Phantasie und Logik 


Heimcomputer, was kann man damit 
machen? Kochrezepte sammeln, 
Haushaltsbuch -führen, Weinkeller 
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verwalten, Briefmarkensammlung re- 
gistrieren, Terminkalender führen, an 
Geburtstage erinnern, Heizung steu- 
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ern? Wer jedoch die wahren Qualitä- 


ten des Heimeomputers erst einmal 
entdeckt, dem werden diese Aufga- 
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MICRO-TOOLS 


| Commodore 64 
Erweiterung des Commodore-Standard-Basic 





Befehlsbeschreibung; 
1. Bildschirmbefehle 





Micro-Tools ist ein Programm, | 


COLrıhz mit dessen Hilfe das Commodore- 
er = Code für Rahmenfarbe (0-15) Standard-Basic V2 um 31 neue | 
h = Code für Hintergrundfarbe (0-15) Befehle erweitert wird. 
z = Code für Zeichenfarbe (0-15) 
Es werden Rahmen-Hintergrund-Zeichenfarben gesetzt. a N DEN = 
!PRINT x,y,A“ bei der Erstellung von selbstent- 
x = X-Koordinate (0-39) ‚wickelter Software berücksichtigt | 
Yo: = T ana Ka werden sollte. 
= Beliebiger Ausdruc 

Es folgt ein positioniertes Ausdrucken an der Position x, y. ee 
!INPUT x,y,A$ oder A. Befehle von Ihrem Commodore 

| x = X-Koordinate (0-39) ausführen zu lassen. Zudem wird | - 
y = Y-Koordinate (0-24) ein Speicherplatz von HEX 

| A$ = Beliebiger String oder Variable $9088-$9E35 belegt. Nach dem | 
Es folgt eine Eingabe an der Position x, y. Ladevorgang wird das Programm 
ISPAGE s | i ° [mit dem Befehl SYS 37000 aufge- | 
$ = Nummer der Seite (1-2) rufen, 
Der aktuelle Bildschirminhalt wird mit Farbe ab $C000 abgespeichert. Von diesem Zeitpunkt an sind alte. 
ILPAGE s a neu hinzugekommenen Befehle 
S = Nummer der Seite (1-2) funktionsfähig. 


Daten werden ab $C000 gelesen und mit Farbe auf den Bildschirm gebracht. 


Mit den Befehlen 'SPAGE s und !LPAGE s kann man sehr schnell 
zwischen zwei Bildschirmseiten hin- und herschalten. 


Geladen wird Micro-Tools mit 








2. Grafikbefehle 

IHGR zuh 

2 = Code für Zeichenfarbe (0-15) 

h = Code für Hintergrundfarbe (0-15) 

Die hochauflösende Grafik wird gelöscht, eingeschaltet und die notwendigen Farben werden gesetzt. 
IHGA - 
Es wird vom HGR-Modus zurück in den normalen Text-Modus geschaltet. 

!PLOT xy 

x = X-Koordinate (0-319) 

y = Y-Koordinate (0-199) 

Es wird im HGR-Modus ein Punkt an die Position x,y gesetzt. 


Compute mib | 185. 


programme 





IGRAPH x,y 

x = X-Koordinate (0-255) 
v = Y-Koordinate (0-199) 
Es wird im HGR-Modus ein Koordinatenkreuz gezeichnet, dessen Nullpunkt an der Position x,y liegt. 


IBLOCK x,y,11,12 

x = X-Koordinate (0-319). 

y = Y-Koordinate (0-199) 

1 = Länge des Blocks in X-Richtung 0-19 

2 = Länge des Blocks in Y-Richtung (0-199) 

Es wird im HGR-Modus ein ausgefüllter Biock gezeichnet, dessen X-Länge H und dessen Y- „Lange 2 beträgt. XundY 
geben den Punkt der linken oberen Ecke an. 


IREC x,y,11,12 
Es wird im HGR-Modus ein Rechteck gezeichnet. Alles andere wie bei dem Befehl IBLOCK. 
Hinweis: 
Bei den Befehlen !BLOCK und !REC darf X-+11 nicht größer sein als 319 und Y-+I2 nicht größer als 199. - 
INV 
Der gesamte Grafikbildschirm wird invertiert. (Negativ) 
IZCOPY 
. Der Zeichensatz wird ins RAM kapiert 
DEF zab,0.d.ef,g,h 


z = Code des alten Zeichens (0-31) 

a-h= B Bytes, die das Bitmuster des neuen Zeichens darstelien. 

Dem Zeichen z wird ein neues Bitmuster zugeordnet. 

Hinweis: 

Bevor Zeichen mit dem IZDEF-Befehl umdefiniert werden, muß der Befehl !IZCOPY aufgerufen werden. 





3. Spritebefehle 

ee 

Nummer des Sprite (1-8) 
Modus (1= Multicolor ein/0= Multicolor aus) 


FAR 1,12 
fi = Multicolorfarbe 1 


m = ! f2 = Multicolorfarbe 2 

ex = X-Expand (1=ein/0=aus) Es werden die Multicolorfarben gesetzt. 
ey = Y-Expand (1=ein/0=aus) 

rt = Sprite-Datenregister (0-255) ISET SAY 

p = Priorität (1=hinter/0=vor) S = Nummer des Sprite (1-8) 


x = X-Koordinate (0-345) 
y = Y-Koordinate (0-255) 
Sprite s wird an die Bildschirmposition x,y gesetzt. 


IREVr 


Farbe des Sprite (0-15) 
Sprite s wird eingeschaltet und alle Parameter 
werden gesetzt. 


! | | 
en ie werden abgeschaltet r = Anfangsadresse des Sprite-Datenregisters 
IOFF ss “ - (Datenregister *64) 


Sie Sprite-Daten werden zur Reversdarstellung 


Ss = Nummer des Sprite (1-8) 
umgeändert. 


Sprites wird abgeschaltet. 








4, Musikbefehle | - Stellt die Wellenform für Stimme s ein. 

vo -  IFREQ s,lo,hi 

ART en (0-15) $s_ = Nummer der Stimme (1-3) 

Stellt die Lautstärke für alle drei Stimmen ein. ; Io = LO-Byte der Frequenz (Handbuch $. 158) 
IWAVE sw hi = HiI-Byte der Frequenz (Handbuch S. 158) 
s = Nummer der Stimme (1-3) Setzt die Frequenz des Tones für Stimme s. 

w = Code für Wellenform (17,33,65,128) IADSR n,a*16,d,s*16,r 
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Nummer der Stimme (1-3) 
Anschlag des Tones (0-15). 
= Abschwellen des Tones (0-15) 


H 
ll 


S Halten des Tones (0-15) 
r Ausklingen des Tones (0-15) 
Setzt die Verlaufsform eines Tones fest 





A 
H 






5. Diskettenbefehle 

I$ ($ soll den Klammeraffen darstellen) 

Es wird der Disk-Status auf den Bildschirm ausgegeben. 

!DIR 

Es wird die Directory von Diskette auf dem Bildschirm gelistet, ohne das Programme im Speicher verlorengehen. 
'!DOS "Befehl* 

Es werden Disk-Befehle an die Floppy gesendet. 

Beispiel: 'DOS "N:MICRO-TOOLS,01" 

Eine Diskette wird mit dem Namen MICRO-TOOLS formatiert und erhält die ID 01. 


6. Programmierhilfen 
!OLD 
Ein durch NEW gelöschtes Programm wird zurückgeholt. 


!MEMORY 
Der noch verbleibende Speicherplatz wird von jetzt an in der rechten oberen Bildschirmecke angezeigt. 


ICHANGE al,a2 


ai = Adresse 1 
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a2 = Adresse 2 
Zwei Speicherinhalte werden vertauscht, ohne das Variableninhalte verlorengehen. 
IQUIT 


Verläßt die Prozedur MICRO- TOOLS. Nach diesem Befehl ist nur das Commodore Standard-Basic verfügbar. Neues 
initialisieren von MICRO-TOOLS durch SYS .37000. 


I REN eK 
2 REM + * 
Z REM + MICRO-TOOL * 
4 REM * * 
5 REM * EOPYRIGHT BY JENS HUNTEMANN * 
6 REM # * 
7/REM * {C}) TRONIC-SOFT * 
GB REM *# j * 
D REM HEHE HN NH 
i0 PRINT'UIEERERBBHALLD !!: BITTE WARTEN !" 


&0000 DIMH (75) :FORI=0T0F 

50010 H(i48+I}=I:Ht&ä5S+I)=I+ri0seNEXT . 

60020 FORI= 37000 TO 40503 :READA$ 

60030 H=ASCLLEFTF(AS,1Y) 

&0040 L=ASC (RISHTF(AF,1)) 

&0050 D=HiH) #LA+H(L}=5=5+D: POKEI,D 

0040 A=sA+ia IFAS2OTHENNEXT:A=-1 

60070 READV: Z=Z+1: IFV=SSTHENAO085 

&0080 PRINT"DATAFEHLER IN ZEILE :"560200+Z:END 

60085 IFA<SOTHENA0100 

60090 5=0:A=0:NEXT 

&0100 SYS 37000 :END 
60201 DATA 20,18,E5,4A9,00,90,20,D0,80,21,D0,A9,10, aD, 08,03,A9,91,8D,09, 2018 
60202 DATA 03,90,00,B9 ’C5,90, 99 ,00,04,49,0E,77,00,D8,C8,C00,13,DO,FO,EA, 2471 
60203 DATA A0,00,B9,DD,70,99,28,04,A9,0E,99,28,D8,C8,C0, 13.00, FO,4C,F5, 2877 
60204 DATA 90,29,2A,2A,20,0D,09 03,12, OF,2D,14,0F,0F,0C,13,20,2A,2A,2A, 624 
60205 DATA EA,EA,ER,EA,EN,28,03,29,27,39,35,20,20 "OA,ZE, 08, 15.0£, 14,05, 1590 
&020& DATA 0D,01,0E,0E,EA,EA,EA,EA,EA,1B,A2 "02,20, FO,FF,&0,EA,ER,A2,0E, 2867 
60207 DATA 20,37,A4,60 ,ER,AZ,0B, 20,37, 4 ,60,EA,EA,EA,EA,ER,20,73,00,C09, 2617 
60208 DATA 21,F0,06,20,79,09,4C,E7,47,20 25,91, 4C,EN,A7,EA,EA,20,73,00, 2212 
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C9,,99,D0,09,A2,00,86,FE,4C,90,91 ,EA,EA,C9,85,D0,09,A2,01,86, 
FE,4C,90,91,EA,EA,6C9,43,F0,79,09,46,D0,03,4C0,E8,91,C9,4D,DO, 
03,4C,10,72,C09,4F ,D0,03,4C,10,93,C9,40,D0,03,40,55,93,09,53, 
00,03,4C,75,93,C07,44,D0,03,4C,74,77,C09,48,D0,03,40,57,94,C9, 
50,D00,03,40,C05,94,09,49,D0,03,4C,BO,95,4C,00,9&,EA,EA,EA,EA, 
EA,EA,EA,EA,20,9B,B7,E0,28,90,03,4C,FE,90,85,FF,20,9B,B7,EO, 
19,970,03,4C,FE,90,EA,EA,A4,FF,20,FO,FF,20,FD,AE,AS,FE,C9,OI, 


F0,03,40,A0,AA,AC,BF,AB,EA,EA,EA,20,73,00,09,4F,F0,03,4C,10, 


9C,20,73,00,09,4C,F0,03,4C,05,91,20,9B,B7,BE,20,D0,20,7B,B7, 
8E,21,D0,20,9B,B7,8E,B6,02,60,EA,EA,20,73,00,09,41,F0,03,4C, 
05,71,20,73,00,09,52,F0,03,4C,05,71,EA,EA,20,9B,B7,8E,25,DO, 
20,9B,B7,8E,26,D0,60,EA,EA,EA,EA,EA,20,73,00,69,4F,F0,03,4C, 
37,99 ,20,73,00,C67,42,F0,03,4C,05,91,20,9B,B7,E0,00,D0,04,8E, 
15,D0,40,E0,09,90,03,4C,FE,70,85,FE,A9,01,CA,E0,00,F0,04,0A, 
AC,3A,92,85,FF ,EA,EA,0D,15,D0,80,15,DO,EA,EA,20,98,B7,E0,01, 
DO,0B,AS,FF,OD,iC,DO,8D, 1C,DO0,4C,78,92,E0,00,F0,03,4C,FE,90, 
AS,FF,2C,1C,D0,F0,09,AD,1C,D0,38,E5,FF,BD,1C,D0,20,9B,B7,EO, 
00,F0,12,E0,01,F0,03,4C,FE,970,A5,FF,0D,1D,DO,8D,1D,DO,4C,A2, 
92,45,FF,2C,1D,DO,F0,0A,AD,1D,DO,38,ES,FF,8D,1D,DO,EA,20,9B, 
B7,E0,00,F0,12,E0,01,F0,053,4C,FE,90,A5,FF,0D,17,D0,80,17,DO, 
40 ,CC,92,AS,FF,2C,17,DO,FO,0A,AD,17,D0,38,E5,FF,8D,17,DO,EA, 
20,9B,B7,BA,Aö,FE,9D,F7,07,20,9B,B7,E0,00,F0,12,E0,01,F0,03, 
AC,FE,90,AS,FF,OD,1B,D0,8D,1B,DO,4C,FF,972,A5,FF,2C,1B,DO,FO, 
OA,AD,1B,DO,38,ES,FF,BD,1B,DO,EA,20,9B,B7,8BA,A&,FE,9D,26,D0, 
60 ,ER,EA,EA,EA,EA,EA,EA,20,73,00,09,46,F0,03,40,F3,98,20,73, 
00,09,46,F0,03,4C0,05,71,20,9B,B7,E0,00,D0,03,4C,FE,90,E0,09, 
70,03, 4C,FE,970,EA,A7,01,CA,E0,00,F0,04,0N,4C0,35,73,85;FF,2C, 
15,D0,F0,0A,AD,15,D0,38,E5,FF,8D,15,DO,EA,60,EA,EA,A9,08,85, 
BA,20,B4,FF,A9,6F,85,B9,20, 96, FF ,20,A5,FF,20,D2,FF,69,0D,DO, 
F6,20,AB,FF,20,73,00,60,EA,20,73,00,69,45,F0,03,4C,7F,9D,20, 
73,00,09,54,F0,03,40,05,91,20,9B,B7,E0,00,D0,03,4C,FE,970,EO, 
09,70,04,4C,FE,90 ,EA,B6,FE,A9,01,CA,E0,00,F0,04,0A,4C,9F,93, 
85,FF,20,FD,AE,20,EB,B7,A5,15,C09,01,BO,2A,AS,FF,2C,10,DO,FO, 
OA,AD,10,D0,38,ES,FF,2D,10,D0,EA,AS,FE,18,65,FE ,AB,84,99, FF, 
CF ,A5,14,99,FE,CF ,60,EA,EA,EA,EA,ER,EA,EA,ERA,EA,C9,02,90,03, 
AC,FE,70,45,14,09,54,90,03,4C,FE,90,A5,FF,0D,10,D0,80,10,DO, 
AS,FE,18,65,FE,AB,A5,14,997,FE,CF ,BA,79,FF ‚CF ,50 ,ER,EA,A9,24, 
85,02,A9,01,A2,02,A0,00,20,F9,FD,A9,02,46,BA,A0,00,20,00,FE, 
A7,00,42,00,00,40,86,5F,84,60,20,D5,FF,AS,5F ,A4,60,20,37,A5, 
AD,00,03,48,AD,01,03,48,A9,3D,8D,00,03,49,E3,8D,01,03,20,03, 
Ab ,68,8D,01,03,68,8D,00,03,20,73,00,60,EA,EA,20,73,00,69,47, 
F0,03,4C,05,91,20,73,00,09,52,F0,03,40,AA,94,09,00,A0,20,85, 
FD,84,FE,A2,20,A0,00,71,FD,C8,DO,FB,E&,FE,CA,DO,F&,A9,3B,8D, 
11,D0,49,18,80,18,D0,20,E0,96,EA,A0,00,92,04,84,FD,84,FE,A2, 
04 ,91,FD,C8,DO,FB,Eö,FE,CA,DO,F&,50 ,EA,EA,EA,ER,EA,EA,C9,41, 
F0,03,40,05,91,49,1B,A2,15,8D,11,DO,BE,198,D0,20,44,E5, 20,73, 
00,40, EA,EA,EA,20,73,00,C9,402,F0,03,40,60,9C0,20,73,00,09,4F, 
F0,03,4C,05,91,20,73,00,C09,54,F0,03,4C,FE,90,20,73,00,EA,EA, 
EN,EA,A9,00,85,97,20,EB,B7,E0,C8,BO,0E,A5,15,09,01,90,0B,DO, 
06,A5,14,09,40,90,03,4C ,FE,90 ,BA,4A,4A,4N,0A,AB,EAR,BF,7A,95, 
580,73,95,B9,7B,95,8D,74,95,84,29,07,18,6D,73,95,8D,73,95,EA, 
EA,AS,14,29,F8,8D,72,75,18,49,00,6D,73,95,85,FD,A7,20,6D,74, 
95,85,FE,18,A5,FD,6D,72,95,85,FD,A5,FE,65,15,85,FE,EA,AS,14, 
29,07,49,07,AA,BD,65,95,90,00,24,97,10,04,49, FF,31, FD,11,FD, 
91,FD,60,EA,EA,01,02,04,08,10,20,40,80,ER,EA,EA,EA,EA,38,42, 


'01,EA,EA,EA,EA,EA,00,00,40,01,80,02,C0,03,00,05,40,06,80,07, 


C0,08,00,04,40,0B,80,0C.,C0,0D,00,0F,40,10,80,11,C0,12,00,14, 
40,15,80,158,60,17,00,19,40,1A,80,1B,C0,1C,00, 1E,EA,EA,EA,EA, 
20,73,00,09,4E,F0,03,40,05,91,20,73,00,69,56,F0,03,40,05,71, 
20,73,00,49,00,85,FE,A9,20,85,FF,A0,00,A9,FF,51,FE,91,FE,CO, 
FF,FO,04,C8,40,D1,95,E6,FF,AS,FF,C9,SF,FO,03,4C,CF ,95,A0,00, 
A9 ,FF,59,00,3F ,99,00,3F,C8,C0,40,F0,03,4C,EC,95,60,EA,EA,EA, 
C9,47,D0,11,20,73,00,09,52,D0,0A,20,72,00,C9,41,D0,03,4C,20, 
96,09,42,D0,03,4C,A0,96,69,51,D0,03,4C,E0,97,40,09,99,EA,EA, 
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2502 
53137 
2039 
2376 
2760 
3174 
3140 
2551 
2171 
2327 
2274 
2770 
2039 


‚2417 


2811 
2548 
2869 
2486 
2846 
2643 
2921 
2659 
2934 
2899 
3013 


2252 


2415 
28997 
30597 
22533 
2372 
2495 
28531 


3058 


3338 
595 
3287 
2132 
2294 
1457 
1795 
20530 
35597 
24977 
3947 
2064 
z31A 
2233 
2756 
2505 
2430 
24370 
5085 
2004 
2507 
1771 
1100 
1708 
1778 
2202 
3157 
#750 
1897 
öl 
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Programme 


40273 
60274 
60275 
80275 
60277 
50278 
60279 
&02BO 
“oral 
40282 
602853 
60204 
40285 
028 
50287 
40288 


: 50297 
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80290 
60271 
60292 
60293 
60294 
60295 
40296 
40297 
60298 
50297 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA. 


EA„EA,20,73,00,69,50,F0,03,4C,05,71,20,73,00,C9,48,F0,03,4C, 
05,91,20,97B,B7,86,FA,20,9B,B7,E0,68,70,03,4C,FE,70,86,FB,A2, 
00,86,FC,09,00,95,15,A4,FA,94,14,20,06, 95, E4,FC,A6,FC,EO,CB, 
90,ED,EA,EA,A9,00,85,14,85,15,A4,FB,20,08,95,A4,14,C0,FF,FO, 
05,E4,14,4C 66,76, EA,EA,A?,00,85,14,49,01,85,15,A4,FB,20,08, 
95,E6,14,A4,14,00,40,90,F3,50,EA,EA,EA,EA,EA,EA,EA,AC,05,71, 
20,73,00,C9,4C,D0,F4,20,73,00,67,4F „DO,EF,20,73,00,69,43,DO, 
EB,20,73,00,C07,4B,DO,E1,20,73,00 ,20,EB,B7,E0,C8,90,03,4C,FE, 
90,95,15,09,01,90,08,D0,F5,A5,14,C09,40,BO,EF ‚EA, AS,14,85,F8, 
A5,15,95,F9,96,FA,EA,20,5B,B7,E0,C8,90,03,4C,FE,90,86,FB,20, 
98,B7,E0,08,90,03,4C,FE,90,86,FC,18B,95,F8,65, FB,85,FD,AS5,F3, 
85,FE,70,02,E6,FE,AS,FE,C9,01,90,0B,DO,06,A5,FD,C9,41,70,03, 
AC,FE,90,99,00,85,F0,85,FE,18,A5,FA,65,FC,85,FD,BO,EE,18,09, 
C9,90,03,4C,FE,90 ,EA,EA,EA,A5,F8,85,14,45,F9,85,15,A5,FC,85, 
02,A5,FA,85,F7,A6,F7,54,02,60,00,F0,0D,20,06,95,E6,F7,C06,02, 
4C,45,97 ,EA,EA,EA,AS,FB,C9,FF,F0,05,E6,F8,40,65,97,49,00,85, 
F9,E6,F9,C6,FB,AS,FB,C7,00,F0,03,40,35,97,60,EA,EA,EA,20,73, 
00,69,49,F0,03, 40 ,74,96,20,73,00,69,52,F0,03,40,95,97,4C,0A, 
94 ,EA,EA,EA,ER,AS5,15,F0,03,40,05,91,20,73,00,09,47,F0,03,4C, 
05,91,20,73,00,20,EB,B7,E0,C2,90,03,4C,FE,70,45,15,95,F9,C7, 
01,70,0D,D0,08,A5,14,85,F8,C07,20,90,03,4C,FE,90,EA,EA,EA,S6, 
FC,AS,C8,38,E5,FC,85,FA,EA,A?,10,85,FB,20,35,97,EA,EA,EA,EA, 
20,73,00,09,55,D0,168,20,73,00,£9,49,D0,0F ,20,73,00,09,54,DO, 
08,47,00,BD,04,80,4C ,E2,FC,4C0,05,91,A5,2B,A4,20,95,22,84,23, 
A0,03,C9,B1,22,DO,FB,CB,98,18,65,22,A40,00,91,28,A5,23,69,00, 
C8,71,2B,B8,A2,03,E4,22,00,02,€64,25,B1,22,D0,F4,CA,DO,F3,A5, 
22,69,02,85,2D,45,23,69,00,85,2E ,60 ,EA,EA,EA,EA,78,A5,01,48, 
29,FB,85,01,A9,D0,85,03,49,30,85,05,40,00,84,02,84,04,A2,20, 
B1,02,71,04,CB,DO,F97,E6,03,E5,05,CA,D0,F2,68,85,01,AD,18,DO, 
29,F1,09,0C,8D,18,D0,58,60,EA,78,A9,85,A0,978,8D,14,03,8C,15, 
03,59,60,ER,E6,38,A5,33,65,31,08,A0,25,20,9D,98,28,A5,34,E5, 
32,40,23,20,9D,98,40,31,EA,48,AA,4R,4A,40,20,08,98,68,29,0F, 
C9,04,70,02,697,06,69,30,27,3F,97,00,04,A9,0E,79,00,09,C8,N7, 
0D,8D,1£6,04,BD,1E,04,49,05,8D,1D,04,A9,0F,8D,1F,04,49,12,BD, 
20,04,47,19,9D,21,04,A7,3A,8D,22,04,R7,0E,A2,00,EA,9D,1C,D8, 
E8,E0,07,F0,03,4C,E1,98,60,EA,EA,EA,EA,EA,EA,C9,40,D0,0D,20, 
73,00,09,44,00,06,20,73,00,40,00,98,40,05,91,EA,EA,C9,5A,DO, 
25,20,73,00,609,43,D0,48,20,73,00,69,4F ,D0,14,20,73,00,09,50, 
DO,0D,20,73,00,09,59,D0,06,20,73,00,4C0,40,98,40,05,91,4C,AD, 
99 ,EA,EA,C9,45,D0,1B,20,73,00,C09,40,D0,14,20,73,00,C9,BO,DO, 
0D,20,73,00,69,59,D0,06,20,73,00,46,76,98,4C,05,91,EA,EA,EA, 
C9,96,F0,03,40,05,91,20,73,00,20,40,79,49,00,85,FE,A0,00,#5, 
FE,85,FF,18,47,0B,85,FE,C8,04,FF,F0,03,40,75,99,A49,30,85,FF, 
EA,AF,00,85,FD,A0,00,20,9B,B7,8A,91,FE,E4,FE,E6ö,FD,AS,FD,C9, 
08,F0,03,4C,8B, 977,40, EA,20,9E,B7,E0,20,90,03,4C,FE, 90,60, EA, 
EA,C9,56,F0,03,46,DB,99,20,73,00,09,4F ,D0,07,20,73,00,69,4C, 
F0,03,40,05,91,20,73,00 ,20,9E,B7,E0,10,70,03,4C,FE,90,8E,18, 
D4,80,EA,EA,C9,57,F0,03,40,22,94,20,73,00,C9,41,D0,0E,20,73, 
00,09,55,00,07,20,73,00,69,45,F0,03,4C,05,91,20,73,00,20,9E, 
B7,EO,01,F0,0B,E0,02,F0,0E,E0,03,F0,11,4C,FE,70,20,9B,B7,BE, 
04 ,D4,60,20,9B,B7,8E,0B,D4,50,20,9B,B7,BE,12,D4,60,EA,C9,41, 
F0,03,4C,7A,74,20,73,00,69,44,D0,0E,20,73,00,69,53,D0,07,20, 
73,00,09,52,F0,03,4C,05,91,20,73,00,20,9E,B7,84,FD,20,9B,B7, 
86, FE,20,9B,B7,84,18,55, FE,85,F£E,70,03,4C,FE,90,20,9B,B7,B&, 
FF ,20,78B,B7,84,18,65, FF „85, FF ,70,03,4C,FE,90,A5,FD,A6,FE,A4, 
FF,C9,01,F0,0B,C09,02,F0,0E,C9,03,F0,11,4C,FE,70,8BE,05,D4,8C, 
06,04 ,60,8E ‚OC,D4 ,8C,0D,D4,50,8E;13,D4,89C,14,D4,60,EA,C9,BO, 
D0,42,20,73,00,C9,51,F0,03,4C0,05,91,20,73,00,20,9E,B7,Bö,FE, 
20,9B,B7 ,BA,A8 ,20,9B,B7 ,AS5,FE,C7,01,F0,0B,C9,02,F0,0E,09,053, 
FO,11,4C,05,71,86,00,D4,BE,01,D4,60,80,07,D4,8E,08,D4,50,8C, 
OE ,D4,BE,OF „DA ,60 ,EA,EA,C9,52,F0,03,4C,69,90,20,73,00,09,45, 
D0,07,20,73,00,09,43,F0,03,4C0,70,9C,20,73,00,20,EB,B7,EO,CB, 
90,03,4C,FE,70 ,95,14,R4,15,00,01,F0,02,90,04,09,40,BO,EF,85, 
F7,84,FB,86,F7,20,73,00,20,E8,B7,A5,15,69,01,90,03,4C,FE,90, 


GSompube mib 


2104 
2BA& 
2766 
2800 
2160 
Z18& 
2375 
2586 
2602 
3018 
3358 
2838 
3233 
3208 
2685 
3226 
3261 
2058 
2477 
2555 
2642 
3512 
1947 
1980 
2197 
2909 
2193 
1718 
2748 
2153 
2237 
1823 
1803 
1397 
1774 
3189 
2166 


1815 


17864 
2511 
2085 
2173 
S010 
5442 


2529 


22753 
2016 
2355 
1725 
2609 
2481 
1745 
2144 


2787 


3154 
2597 
2501 

2080 
2577 
2243 
2439 
2258 
2397- 
2515 


7185 


60337 DATA 
66338 DATA 
80357 DATA 
&0340 DATA 
605341 DATA 
66342 DATA 


60343 DATA 


60344 DATA 
80345 DATA 
0545 DATA 
605347 DATA 
&0548 DATA 
50347 DATA 
0550 DATA 
0351 DATA 
60352 DATA 
50353 DATA 
50354 DATA 
60355 DATA 
80356 DATA 
66357 DATA 
60358 DATA 
50357 DATA 
0340 DATA 
9381 DATA 
0342 DATA 
60363 DATA 
60564 DATA 
80545 DATA 
K0Sbb DATA 
603547 DATA 
0348 DATA 
60367 DATA 
0370 DATA 
60571 DATA 
40572 DATA 
60373 DATA 
&0374 DATA 
60375 DATA 
80376 DATA 





Das Anwendungsprogramm für den 
Commodore 64 bietet folgende Dis- 
ketten-Befehle im Menü an: 


1. 
2. Initialisieren 
3. Validatieren 
4. 
5 
6 


7185 


DISKY 1.0 


programme 


AS,14,C9,C8,BO,F7,E0,C8,BO,F3,85,FA,84,FB,18,645,F7,90,02,E6, 
FB, A6,F8,E0,01,70,0C,F0,03,4C,FE,70,09,40,90,05,4C,FE,970,A5, 
F?,18,65,FB,C9,08,90,03,4C,FE,90,A5,F7,A4,FB,85,14,84,15,A6, 
F7,8E,03,70,49,00,8D,04,70,20,08,75,EE,03,90 ,AE,03,70,AD,04, 
90,C05,FB,BO,04,EE,04,90,46,6D,?B,EA,EA,AS,F9,8D,00,70,18,65, 
FB,8D,01,90,A5,F7,44,F8,85,14,84,15,49,00,8D,02,70,45,14,097, 
FF,90,09,E6,15,A49,00,85,14,4C,AE,98,E6,14,EE,02,90,AD,02,90, 
E5,FA,BO,OF ,AE,00,90,20,06,95,AE,01,70,20,06,95,4C,70,9B,E6, 
FB,A6,F9,20,06,95,E6,F9,C5,FB,AS,FB,C9,00,F0,03,4C,C09,9B,&0, 
EA,EA,EA,EA,Z20,9B,B7,E0,10,70,03,4C,FE,70,8B6,F7,20,7B,B7,EO, 
10,90,03,4C,FE,90,8B6,F8,A0,00,A5,F7,18,65,F7,C8,C0,ÖF,F0,03, 
4C,FC,78,85,F7,A5,F8,18,65,F7,60,EA,07,48,D0,10,20,73,00,C09, 
41,D0,15,20,73,00,C9,4E,DO,0E,20,73,00,C09,47,D0,07,20,73,00, 
E9,45,F0,05,40,05,71,20,73,00,20,8A,AD,20,F7,B7,A5,14,A6,15, 
85,FE,864,FF,A0,00,B1,FE,85,FD,20,FR,AE,20,8A,AD,20,F7,B7,A5, 
14,A6,15,85,FB,86,FC,A0,00,B1,FB,91,FE,AS,FD,91,FB,60,EA,EA, 
EA,4C,C0,9C ,EA,EA,EA,ER,C9,56,F0,03,40,05,91,20,73,00,20,BA, 
AD,20,F7,B7,A0,00,A5,14,A4,15,85,FE,Ba,FF,Bi,FE,49,FF,91,FE, 
£C8,00,40,90,F5,60,EA,EA,EA,EA,C9,4F ,DO0,07,20,73,00,C07,53,F0, 
03,40,05,91,20,73,00,A9,01,A2,0B,A0,OF,20,BA,FF,20,C0,FF,A2, 
01,20,90,AA,20,B5,AB,60,69,4C,F0,03,4C6,05,91,20,73,00,69,50, 
D0,F6,20,73,00,09,41,DO,EF,20,73,00,C9,47,D0,E8,20,73,00,09, 
45,D0,E1,20,73,00,20,7E,B7,E0,01,F0,12,E0,02,F0,03,4C,FE,90, 
A9,B8,42,CB,85,F7,96,F8,4C,12,7D,A9,E8,A2,03,85,F7,86,F8,A9, 
00 ,A2,C0,85,FE,B&,FF,40,1A,9D,A0,D6,A9,67,84,FE,85,FF,AZ,00, 
A0,00,49,04,84,FC,85,FD,Bi,FE,91,FC,CO,FF,FO,04,C8,40,24,9D, 
AO,00,EB,E&,FF,E6,FD,E0,03,F0,03,40,24,9D,B1,FE,71,FC,C0,E7, 
FO,04,C9,4C,3E,9D,A0,00,49,D8,A2,00,84,FE,85,FF,B1,F7,71,FE, 
CO,FF,F0,04,C8,4C,54,9D,A0,00,E&,FB,E&,FF,EB,E0,03,F0,03,4C, 
54,9D,61,F7,971,FE,C0,E7,F0,04,C8,4C,6E,9D,60,EA,EA,EA,EA,C9, 
50,00,15,20,73,00,C9,41,DO,0E,20,73,00,09,47,D0,07,20,73,00, 
C9,45,F0,03,40,05,91,20,73,00,20,9E,B7,E0,01,F0,12,E0,02,F0, 
03,4C,FE,70,A9,BB,A2,CB,85,F7,86,F8,40,CA,9D,A9,E8,A2,03,85, 
F7,86,F8,99,00,2,C0,85,FE,Bö,FF ,4C,D2,9D,A0,D0,A9,07,84, FE, 
85, FF ,A2,00,A0,00,49,04,84,FC,85,FD,B1,FC,91,FE,C0,FF,FO,04, 
C8,4C,DC,90,A0,00,E8,E6,FF,E&,FD,E0,03,F0,03,4C0,DC,9D,E1,FC, 
91,FE,C0,E7,F0,04,C8,4C,F6,9D,A0,00,A9,DB,A2,00,84,FE,35,FF, 
B1,FE,71,F7,C0,FF,F0,04,CB,4C,0C,9E,A0,00,E4,FB,E4,FF,EB,EO, 
03,F0,03,4C,0C,9E,B1,FE,91,F7,C0,E7,F0,04,08,40,26, 96 ,&0,EA, 
EA,EA,32,30, Sab ; 


Commodore 64 


FEB 
2011 
2933 
2046 
2792 
2507 
2337 
22867 
3159 
3142 
2613 
2855 
1723 
2083 
5182 
3542 
2667 
3101 
30453 
2005 
2001 
sel 
2448 
3420 
3051 
5091 
3350 
043 
3109 
3507 
1725 
2208 
328953 
3473 
3172 
3365 
s225 
3539 
2784 


Ein Anwendungsprogramm für Disketten-Benutzer 


Formatieren 


Scratch 


. Rename 
. Directory 


fügung gestellt: 





gehoben werden). 


Compute mib 


Sie haben jetzt die Möglichkeit, aus 
diesem Menüangebot die jeweilige 
Routine zu wählen. Zudem werden 
- zwei Disk-Schutzverfahren zur Ver- 


1. der normale Disk-Schutz {kann 
nur durch dieses Programm wie- 
der aufgehoben werden), 

2. der spezielte Disk-Schutz {kann 
nur durch Formatieren wieder auf- 
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programme. 


10 REM x#* DISKY 1.0 #*x 

11 REM #** DATEN FUER DIRECTORY #*x 

i2 FOR I=49152 TO 49254 

13 READ. X:FOKEI,X:5=5+X:NEXT 

20 DATA 167,36,133,251,167,251,133,187,169,0,133,188 
25 DATA 169,1,173,182,169,8,133,186,167,96,133,185 

50 DATA 32,213,243,165,184,32,180,255,165,195,32,150 
35 DATA 255,169,0,133,144,160,3,132,251,32,165,255 

#0 DATA 133,252,164,144,208,47,32,165,255,164,144,208 
45 DATA 40,164,251,136,208,233,166,252,32,205,189,169 
56 DATA 32,32,210,255,32,165,255,166,144,208,18,170 
33 DATA 240,6,32,210,255,76,76,192,169,13,32,210 

&0 DATA 255,160,2,208,198,32,66,246,96 

70 IF 5<X715343 THEN PRINT "FEHLER IN DATAS !"ıEND 


100 FRINT"L WDISKY 1.0: . 
110 FRINT" WRITTEN BY CARSTEN MUELLER" 
120 FRINT" xC# 1985 BY W=T-Ccee" 
130 PRINT 


i40 FRINT" DIESES PROGRAMM HILFT IHNEN EINIGE" 
150 FRINT" DISKETTEN BEFEHLE AUSZUFUEHREN. _ 

180 PRINT | 
170 FRINT" ICH BITTE SIE UM EINSICHT,DASS DIESES 

180 PRINT" FROGRAMM EINIGE MALE NACHLADEN MUSS. 

200 PRINT 

250 FRINT" UND NUN VIEL SPASS BEIM ARBEITEN 

300 REM #** HAUPTMENLE *#x* 

305 PRINT:PRINT 


310 PRINT" ©  HAUPTMENUE aur%# 


320 FRINT 
330 PRINTT m nn nr mer = 
340 PRINT" | 1:FORMATIEREN | S: RENAMEN ' 


| 
350 PRINT K——— nn u 
380 PRINT" |2:VALIDATIEREN |&:DIRECTORY ANZ. |" 
370 PRINT! p— 0 

380 PRINT" I3:INITIALISIEREN |7:DISK SCHUETZEN |" 

390 PRINT" mm en pn nenn 
400 FRINT" j4:SCRATCHEN IB:BEENDEN je 

410 PRINT" ı 

4153 REM x** ABFRAGE #u.% 

420 GETA$ 

450 IF A$="1" THEN 1000 

440 IF At="Z" THEN 2000 

450 IF A$="3" THEN 3000 

460 IF Af="4" THEN 4000 

470 IF Ag="S5" THEN 5000 

480 IF A$="&" THEN &000 

490 IF A$="7" THEN 7000 

500 IF A$="g" THEN 8000 

500 GOTO420 

704 GOTO7006 

1000, REM #** FORMATIEREN #** 

1100 PRINT" WFORMATIERENM" 
1200 PRINT en 5 
1201 INPUT"@ DISKNAME";B£ 

1202 INPUT"W ID"sC$ 

1210 FRINT"EBS DISK EINLEGEN UND GC=® DRUECKEN" 
1220 WAIT 653,2 

1230 PRINT" 

1240 PRINT" | je 





ee LE} 








nm mtr rt nn ger mein 








GCompute mib ” 


4210 
- #300 
45310 
4320 
4330 
4540 
4350 
4360 
4370 
AAO 


7185 


Programme 


PRINT"I | MOMENT BITTE ICH FORMATIERE !" 
PRINT"| je" 

PRINT" g 

PRINT" L—ı 

OPEN1,8,15, "N: "+B$+"  "+0$ 

CLOSE 

PRINT" FORMATIEREN FERTIG !" 

PRINT 

PRINT" KCTRLB DRUECKEN" 

WAIT 653,4 

RUN 

REM ##** VALIDATIEREN #*% 

PRINT"G BVALIDATIERENM" 

PRINT 

PRINT" DISK EINLEGEN UND iC= DRUECKEN !* 


WAIT 653,2 
PRINT" r—— " 


PRINT" | j" 

PRINT"| „ | MOMENT BITTE ICH VALIDATIERE ı" 
PRINT"| w.j" 

FRINT“I g |“ 

PRINT" L——in 

OPEN1,8,15, "V":CLOSE1 

PRINT" VALIDATIEREN FERTIG !" 

PRINT 

PRINT" WHICTRLEM DRUECKEN" 

WAIT 653,4 

RUN 

REM #** INITIALISIEREN +*x 

PRINT"Ü WINITIALISIERENM 
PRINT 

PRINT" 9 DISK EINLEGEN LIND jC=M DRUECKEN" 


WAIT 653,2 
PRINT" 1. u 


PRINT® | j® 

PRINT"| „ | MOMENT BITTE ICH INITIALISIERE!" 
PRINT"| =." 

PRINT" | i 

PRINT" L—— 8 

DOPENi,8,15,"1":CL0OSE1 

PRINT" INITIALISIEREN FERTIG" 

FRINT 

PRINT" WBETRLES DRUECKEN" 

WAIT 653,4 

RUN 

REM ##%* SCRATCHEN xx# 

PRINT"L, WSCRATCHENM" 

PRINT 

INPUT"WELCHES FILE SOLL GESCRATECEHT WERDEN";DE 


PRINT"IS DISK EINLEGEN UND KC=-E DRUECKEN" 
WAIT 653,2 


PRINT" 


PRINT" l t u . h 

PRINT"| „ | MOMENT BITTE ICH SCRATCHE !" 
PRINT" |" 

PRINT" | j" 

PRINT" L——1# 


OPEN1,8,15, "5: "+D$ 


Compute mib 


C-64 Akustik 
und Graphik 


von John 3. Anderson 


Die Umständlichkeit des C-64 
beim Programmieren von Gra- 
fiken und Toneffekten ist ja hin- 
reichend bekannt. Dieser Titel 
schafft endlich Abhilfe. Hier 
werden Ihnen alle Möglichkei- 
ten gezeigt, die in BASIC 2, in 
Structured Basic und in Si- 
mon’s Basic für Grafik und 
Akustik zur Verfügung stehen. 
Das Buch soll Ihnen zeigen, 
daß die Beschäftigung mit 
Ton- und Grafikerzeugung des 
Commodore 64 nicht unbe- 


-dingt zur Frustration führen 


muß. John J. Anderson vermit- 
telt Verständnis — besonders 
für jüngere C-64-Benutzer - 
und nicht nur Programme. Sei- 
ne Informationen sind volistän- 
dig, bildreich und gegenwärtig 
in keinem anderen Text zu fin- 
den. So z. B. zur Verbindung 
von Bild und Ton, zum Lesen 
von Joystick-Signalen und 
zum Arbeiten mit der problema- 
tischen Floppy VC 1541. Die- 
ses Buch ist jedem zu empfeh- 
ten, der der Leistungsfähigkeit 
des Commodore 64 auf den 
Grund gehen will, Bereits nach’ 
kurzer Zeit haben Sie es ver- 
standen, Grafik, Klänge und 
sogar Musik auf Ihrem Com- 
modore 64 zu erzeu 





te-wi Verlag GmbH, Miün- 
chen, ISBN 3-921803-31-4, 
Preis 49,- DM 
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4450 
4500 
4505 
4510 
4600 
4700 
5000 
5100 
S11o 
5120 
5200 
5210 
5250 
5240 
5270 
5280 
s285 
5290 
5300 
5400 
5500 
5600 
5700 
5800 
&000 
&100 
6101 
. 6110 
6200 
&500 
8501 
6550 
7000 
7100 
7200 
7201 
7202 
7203 
7204 
7205 
7210 
7211 
7213 
7215 
7217 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7330 
7340 
735 
7360 
7370 
7380 
7390 


ELDSE1 ö 

FRINT" SCRÄATCHEN FERTIG :" 
PRINT ; 
PRINT" WETRLE DRUECKEN" 

WAIT 453,4 | 

RUN 

REM ###+ RENAMEN ##* 

PRINT" ERENAMENIGZ" 

INFPFUT"BE ALTER Fi LENAME"SE£ 

INPUT" NEUER FILENAME"IF$ 

PRINT'EZ DISK EINLEGEN UND sCc=H DRUECKEN 
WAIT 853,2 

FRINT" u, " 

FRINT"| j" 

PRINT" | et MOMENT BITTE ICH RENAMNE !" 
PRINT" '-.gj" 

PRINT" | u 

PRINT" i ,J 

DFEN1,8,15,"R: "+F&£+"="4E$ 

CLOSEi 

FRINT" RENAMEN FERTIG !" 

PRINT" WETRLEB DRUECKEN" 








WAIT 453,4 

RUN 

REM #*#* DIRECTORY x#* 

PRINT" WDIRECTORY ANZEIGENE" 





IM DISK EINLEGEN UND |SC=M DRUECKEN" 
WAIT 453,2 

SYS 12#409% 

PRINT"EIR SCTRLE DRUECKEN 


WAIT 653,4 

RUN 

REM *** DISK SCHUETZEN #** 

PRINT" WDISKETTE SCHUETZENE" 


PRINT'ERIgE ES BESTEHEN ZWEI MOEGLICHKEITEN " 
FRINT" DIE DISKETTE ZU SCHUETZEN 3" 

PRINT" EINMAL BESTEHT DIE MOEGLICHKEIT" 
FRINT" SIE 50 zu SCHUETZEN,DASS SIE NUR" 
PRINT" DURCH FORMATIEREN ENTSCHUETZT" 

FRINT" WERDEN KANN. (SPEZIAL DISK SCH.)" 

















FRINT" fe] ##%##% UNTERMENUE zu.xx0%" 

FR I NT “a ] Tamm mn nn runter ne mn 
FRINT" | 12 NORMALER DISK-SCHUTZ ie 
PRINT" + mann ran n nm nn | N 
FRINT" | 2: SPEZIAL DISK-SCHUTZ tACHTUNGI |" 
PRINT" L rer el 
FRINT’B WBITTE WAHLENE" 

GETX#F 


IFX$="1"THEN7225 
IFX£="2" THEN7700 


501707221 
REM **%* NORMALER DISK-SCHUTZ x%*%* 
FRINT"L, KNORMALER DISK-SCHUTZE" 


PRINT"ERSN DISK EINLEGEN UND iC=M DAUECKEN" 
WAIT 653,2 

PRINT 

OPEN15,8,15 

OPENS,8,5,"#" 

PRINT#15,"U1:2"55031850 
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7400 Bf="" 

7410 GSET#S,E$:FORL=1T0255 

7420 GET#S,At: IFAs=""THEN AF=CHR& (CO) 

7430 B$=B$+A$:NEXTL 

7450 CLOSESzELOSE15 

"7451 INPUT" (EINTSCHUETZEN ODER {SICHUETZEN"sHAAF 
7452 PRINT — " 

7453 PRINT" | ji 
7454 PRINT"| — | MOMENT BITTE ARBEITE MIT DISK ı" 
7455 PRINT"| v,p" 

7456 PRINT" | Hide 

7457 PRINT" L—." 

7468 IFAAS="E"THENNAL=" a 

74697 IFAAF="S"THENNAF=CHRE (0) +CHRS$ (0) +CHRE (0) 

7501 C$=LEFTF(B$,143) +NAS+RIGHT$ (B$, 107) 

7510 OPEN1S,8,15 

7520 OPENS,8,5,"#" 

7530 PRINT#S,C# 

7540 FRINT#1S, "U2: "5:05 1850 

7550 CLOSES: CLOSE1S: PRINT" BIEE" 

7560 OPEN15,8,15,"1":CLO5E15 

7590 PRINT'EI] D.K." 

7591 PRINT" WETRLE DRUECKEN 

7592 WAIT 453,4 

7595 RUN 

7609 ERF=SCHREL13):INSG=" "2 7T=T1:2270=2: ZDE=CHRE (20) 
7810 GETZ&: IFZ&< >" "THEN7S40 
7620 IFZT<=TITHENPRINTMIDE(" "20,133 "89"3 3 2C=3-2C: ZT=TIH15 
7630 GÜTD7&1O 

7640 Z=ASCIZE) SZL=LENCINSI IF (ZANDI2FISSITHENPRINT" 31" ; :50T07670 
7650 IFZL>2SATHEN?TA1O 
7660 IN$=INS+Z$:PRINTZ£; ZD$; 78; 

7670 IFZL=16THENIN$=MIDF {INF, 2) =PRINTER$3 RETURN 
7680 IFZ=Z2OANDZL>1THENINS=LEFTS CIN$,ZL-1) :PRINT"RI" 5: 60T07610 
7690 IFZ=141THENZSSCHRE (-20% (ZL>1) 3 sFORZ=ZTOZLIPRINTZE3 : NEXTZ:GOTO7&00 
7700 GOT07610 

7900 REM #*# SFEZIAL DISK-SCHUTZ x#* 

7910 FRINT"G WSPEZIAL DISK-SCHUTZE" 

79711 PRINT"EIN DISK EILEGEN UND GC=®# DRUECKEN" 

79712 WAIT 653,2 

7913 PRINTB—— " 

79714 PRINT" | I" 

7715 PRINT"| — | MOMENT BITTE ICH SCHUETZE DISK" 
7916 PRINT"i jr 

7917 PRINT"| 8 j" 

7718 PRINT" IL —u 

7720 OPEN1,8,3,"#"20FEN2,9,15,"B-PZ, 144" 

7721 PRINT#I "Ba" CHRE COICHRE (OJCHR& (9) 

7922 FRINT#2,"U2:3,0,18"=PRINT#2,"I 

7730 FRINT" SCHUETZEN FERTIG" 

7940 PRINT'"E HCTRLE DRUECKEN" 

7950 WAIT 853,4 

7960 RUN 

8000 FRINT'LIIN WOLLEN SIE WIRKLICH BEENDEN >" 

B100O GETZE 

8200 IFZ$="J"THENSYSSA7ZB 

8300 IFZ$="N"THEN RUN 

8400 GOTO8100 

READY. 
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Schlechter Druck 


In der Ausgabe 6/85 haben Sie ge- 
schrieben, daß man seine Meinung 
ruhig mitteilen soll. Ich möchte dies 
tun und Sie darauf hinweisen und 
mich beklagen, daB das Listing 
„Mampfman“ in dieser Ausgabe 
teilweise sehr schlecht zu lesen ist. 
| Außerdem möchte ich Sie bitten, mir 
Heft 1-5 zuzusenden, da mir die 
Aufmachung der neuen „Compute 

mit“ sehr gut gefällt. 
Frank Blank, Finnentrop 


Redaktion: 

Auch wir haben mit Erstaunen fest- 
stellen müssen, daß das von Ihnen 
angesprochene Listing tatsächlich 
von schlechter Druckqualität ist. Eine 
Rücksprache mit unserem Druckhaus 
hat ergeben, daß es sich dabei um 
einen technischen Fehler gehandelt 
hat. Die Zeitschrift „Compute mit“ ist 
erst ab Heft 5 erhältlich. Diese Aus- 
gabe wird ihnen in den nächsten 
Tagen zugehen. 


Alte Exemplare 


In Ihrem Verlag erscheint das Maga- 
zin „Gompute mit“. Von diesem Ma- 
gazin erstand ich Ende letzten Jahres 
bereits eine Ausgabe (Nr. 25/84). 
Weitere Exemplare waren jedoch 
über den Zeitschriftenhandel in der 








CON 


Strukturierte Programmierung ist 
eine der modernsten Strategien, 
komplexe Programme durchschaubar 








Schweiz nicht mehr erhältlich. Um so 
mehr hat es mich gefreut, als ich 
kürzlich wieder eine Ausgabe dieses 
Magazins unter der Fülle von Gom- 
puter-Zeitschriften entdeckte. Ein 
Magazin, welches mir Software und 
Tips für den VC-20 bietet! 
Nun meine Fragen: 
In der erwähnten „alten“ Ausgabe 
von „Compute mit“ ist das Programm 
„Konzern“ für den VC-20 + 16 K 
abgedruckt. Aber offensichtlich fehlt 
ein Teil dieses Programms, das Zei- 
chensatzprogramm. Ist Ihnen der 
Autor dieses Programms bekannt, 
oder gibt es eine spätere Ausgabe mit 
dem fehlenden Programmteil? Sind 
noch frühere Ausgaben dieser Zeit- 
schrift bei Ihnen erhältlich? Sind 
noch Programm-Kassetten aus dem 
früheren Kasselten-Service lieferbar? 
Walter Müller 
Meinisberg, Schweiz 


Redaktion: 

Unser Verlag hat im Januar 1985 die 
Titelrechte für die Zeitschrift „Com- 
pute mit“ erworben. Forderungen, 
Software oder sonstige Verlagsange- 
legenheiten, die die Hefte aus frühe- 
ren Jahrgängen betreffen, können 
von uns nicht bearbeitet werden, da 
uns keinerlei Unterlagen zur Verfü- 
gung stehen. Es ist uns daher nicht 
möglich, Ihnen den Namen des Au- 
tors für das Programm „Konzern“ 
mitzutelien. Aus diesem Grund kön- 
nen auch keine Hefte und keine Soft- 





von R. Standke und A. Hartwig 
zu machen - durch Auflösung der 


Komplexität in kurze, selbständige, 
einfach vernetzte, leicht prüfbare Pro- 
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ware aus den vorangegangenen Jah- 
ren von uns geliefert werden. Es tut 
uns leid, Ihnen in dieser Angelegen- 
heit nicht weiterhelfen zu können. 


Spielekassetten 


Eine Frage zu den von Ihnen ange- 
botenen Spielekassetten aus der An- 
zeige „Ihr Erfolgsprogramm aus dem 
Tronic-Verlag‘. Ich habe im Zeit- 
schriftenhandel nach diesen Produk- 
ten gefragt und dert eine Absage 
erhalten. Wie kann ich die laufenden 
Neuerscheinungen erfahren? 
Günter Wunderle, Meßkirch 


Redaktion: 

Der Tronic-Verlag bietet zur Zeit 
neun verschiedene Software-Kasset- 
ten für alle beliebten Heimcomputer- 
Systeme über den Zeitschriftenhan- 
de! an. Fragen Sie also bei Ihrem 
Zeitschriftenhändler nach dieser 
Software. 
Die laufenden Neuerscheinungen 
Sind vierteljährlich geplant und wer- 
den durch entsprechende Werbe- 
maßnahmen in unseren Zeitschriften 
und anderen Fachblättern bekannt- 


‚gegeben. Jedem Homecomputer-Be- 


sitzer ist zu empfehlen, nach der gün- 
stigen Spiele-Software. bei seinem 
Zeitschriftenhändler zu fragen. 





IMODORE 64, mit Steckmodul 


grammblöcke. 


STRUCTUREB BASIC liefert die 
nötigen Sprachelemente für struktu- 
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Gebiet der Systematik der Program- 
mierung. 

Jeder, der den Einstieg und weitere 
Erfahrungen auf dem Gebiet der 
strukturierten Programmierung erfah- 
ren möchte, sollte dieses Buch zu- 
sammen mit dem Steckmodul erwer- 
ben. Man bekommt somit die Mög- 
lichkeit, auf dem Gebiet der Program- 
mierung in den Profibereich aufzu- 
steigen. 


rierte Problemformulierungen in BA- 
SIG. Zusammen mit einem Steck- 
modul erweitert es erheblich die Ein- 
satzmöglichkeiten des Commodore 
64 auf der Befehls- wie auch der 
Sprachebene. In Structured Basic 
sind möglich: rexursive Programm- 
aufruge, DO...LOOPs mit 128 
Ebenen, hochauflösende Graphiken 
auch im Farbmodus, GOTO-freie 
Programme, gesamter Speicherraum 
100k durch externe ROMs. 

Die Autoren Standke und Hartwig 
entwickelten Structured Basic aus 
langjähriger Lehrerfahrung auf dem 


te-wi Verlag GmbH, München, 
ISBN 3-921803-51-9, Preis 199,- 
DM 











* Achtung * Achtung * Achtung x 
mit einem Kombi-Abo von „Gompute mit“ 


können Sie bares Geld und zusätzliche Abtipp-Zeiten sparen. 
Wir liefern Ihnen die Zeitschrift plus komplettem Datenträger 
(Kassette) jeden Monat frei Haus. 


Super-Service 


| Kombi-Abo 
„Compute mit ..." 


Name ’ Vorname 


Straße / Nr. PL/F Ort 


Ich wünsche folgendes ABO (Inland): 


[1] 12 Exemplare „Compute mit...“ + 12 bespielte Kassetten 
Bitte ausschneiden zum Preis von 97,50 DM (Ausland 110,- DM) 


und senden an: [] Commodore [I Schneider 


Tronic-Verlag GmbH 1] 12 Exemplare „Compute mit ...“ ohne bespielte Kassetten 
Postiach 41 zum Preis von 30,- DM (Ausland 40,- DM) 
3444 Wehretal 1 gegen e 

[] Rechnung L1 Vorkasse 


Datum, Unterschrift 


Abonnemeni-Kündigungen: 5 
6 Wochen für Ablauf des Jahresabonnements, Außerdem kann ich diese Bestellung innerhalb von t0 Tagen beim Verlag widerrufen! Zur Wahrung der Frist ge- 
nügt die rechtzeitige Absendung des Widerrufes. 


Datum, Unterschrift 
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programme 


Stuntman 


Das Spiel verfügt über eine gute 
Graphik, eine Highscoreliste, in die 
die Namen und Punktzahlen der be- 
sten 10 Spieler übernommen werden, 
und über eine kleine Melodie, Die 
Highscoretabelle kann überdies auch 
noch auf Cassette abgespeichert 
oder auf dem Drucker ausgegeben 
werden. 

Nach dem Start des Programms er- 
scheint zuerst ein Titelbild und eine 
Melodie wird abgespielt, Danach er- 
scheint das Menü, in dem folgende 
Funktionen zur Auswahl stehen: 


F1- Spielstart 

F3- Highscoretabelle zeigen 
F5- Highscoretabelle saven 
F7- Highscoretabelle laden 
D - Highscoretabelle drucken 


1 POKE36878, 15: DIMAS$ (21) :G0SUB2000: GOUSUB1000 
5 POKES1 ,O:FOKES2, 28: POKESS ,O:POKES&,28:CLR 
10 FORA=OTOS11:POKE7168+A,FEEK (3274B+A} ı NEXT 
20 FORS=0T0343: READW: POKE7168+5 ,W:NEXT 

100 DATAO,1,47,15,2,4,5,80 

110 DATAO,1,1,15,50,4,5,50 

120 DATAO,128,192,128,240,140,6,159 

130 DATAO,0,0,0,0,0,0,192 

140 DATA124,95,163,73,73,73,34,28 

15G DATA124,95,163,65,93,65,34,28B 

160 DATA124,125,122,117,533,228,2,1 ° 

170 DATAO,192,32,16,144,16,32,192 

180 DATA96,112,97,92,81,83,95,71 

190 DATAO,0,24,140,206,209,176,172 


Wird Fi gewählt, so wird zunächst 
nach der Spielerzaht (1-5} gefragt. 
Dann fragt der Computer nach den 
Namen der Spieler (bis 10 Buchsta- 
ben). Wurde auch das korrekt einge- 
geben, beginnt das Spiel. Zuerst wird 
der Bildschirmaufbau erstellt und das 
Motorrad erscheint in der linken, 
oberen Ecke. Links unten erscheinen 
die Absprung- und die Landerampe 
sowie die Autos, die übersprungen 
werden müssen. Mit F5 kann der 
erste Spieler nun das Motorrad be- 
schleunigen. Es wird immer schnel- 







ist 
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ler, bis die Höchstgeschwindigkeit er- 
reicht wurde. 

Wird die Taste losgelassen, so ver- 
liert das Motorrad wieder an Ge- 
schwindigkeit. Man muß versuchen, 
genau das richtige Tempo zu haben, 
um die Autos zu überspringen und 
wieder auf der Rampe zu landen. 
Gelingt dies, bekommt man dafür 
Punkte und der nächste Spieler ist an 
der Reihe. 
Mißlingt der Versuch, verliert man 
eines seiner 5 Motorräder. Wenn es 


gelingt, alle 6 Autos zu überspringen, 4 


erscheint eine große Schrift auf dem 
Bildschirm. Man erhält ein Extra- 
Motorrad und Bonuspunkte. 

Hat man alle Motorräder verloren, 
erscheint Ihr Grab auf dem Bild- 
schirm. Wurde eins der 10 besten 
Ergebnisse erreicht, werden Name 
und Punktzahl in die Highscoreliste 
übernommen. 

Sind alle Spieler ausgeschieden, ist 
wieder das Titelbild auf dem Bild- 
schirm zu sehen. 


Variabienliste: 





H{X): X-TER Score der Highscore- 
liste 

H$(X): X-TER Name der Highscore- 
liste 

D: Etage, auf der sich das Motorrad 
befindet 

G: Geschwindigkeit 

SP: Nummer des Spielers, der dran 


PS: Spieleranzahl 

OG: Anzahl der ausgeschiedenen 
Spieler 
A$(X): Strings für Motorräder 

B$: String für Auto 

C$: String für linke Rampe 
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200 
210 
=z20 
230 
240 
250 
260 
270 
280 
290 
300 
s10 
320 
330 
>40 
Jod 
30 
>70 
380 
370 
200 
410 
A420 
430 
4430 
450 
450 
470 
430 
490 
soo 
Ssio 
E20 
800 


DATACG,0,0,0,0,0,128,128 
DATA1,3,7,2,4,4,0,0 
DATA2S1,185,71,131,146,130, 48,56 
DATALEO,145,142,0,0,0,0,0 
DATA128,0,0,0,0,0,0,0 

DATA127 ,255,204,704 ,255,255,48,49 
DATAZS4,255,531,51,2993,255,12,12 
DATAO,0,15,31,48,44,48,48 
DATAO,0,240,249,12,12,12,12 
DATAG,O,0,0,4,24,53,49 
DATAO,0,0,0,0,24,172,75 
DATA24,60,60,24,124,255,255,189 
DATA199,153,36,66,66,66,66,195 
DATAZS, &1, &1 ‚25, 127, 254 254, 188 
DATA1BS, 152 ‚2a,24, 24,24,24,60 
DATA255,128,117,86,117,128,255,128 
DATAZSS5,1268,87,101,87,129, 255,128 
DATAG,28,38,123,125,125,62,28 
DATA3,15,63,255,683,63,31,7 
DATA132,206,254,252,255,254, 248,30 
DATAO,7,31,127,29,59,39, 111 
DATAO,192,204,254,253,254,270,190 
DATAO,0,0,0,0,0,0,0 
DATAZZ9,111,55,55,63,31,15,0 
DATA191,177,191,191,254,252,249,224 
DATAO,0,0,0,3,153,583,255 
DATAS,13,53,255,255,7595,253,255 
DATA254 254,254. 254,254,254, 254,255 
DATAG,Z,6,14,30,67,128, 254 
DATAO,0,0,0, 192,240, 252,255 
DATA192 „240,252 24235, 299,235, 255,255 
DATA127,127,127,127,127,127,127. 258 
DATAO,64,96,112,120,124,126,127 


FRINT "LRRERICHAUPTFPROGRAMM LADEN! "sEND 
1000 FOKEF4B79 „238: PRINT "LERRRBISSERBESTUNTMARGE 


1010 Af=" {6 1784 BY "sbt=" 


874, 


9) 


1025 NEXT 3 
1050 FORT=1T0O500: NEXT: FRINT"ERS" 


1040 FORI=22TO1STEP-1: a 1,122 "OB; POERETAB74, IR2+ 130: FORT=1 


70150 


1045 
1050 


1055 


1050 FORI=1T022: PRINT'B"MIDEiAF,1,1)3: POKEF&875 , 200: FORT=1TO100: NEXT: POKES6875, 
O:NEXT 


1070 
10890 
1085 


NEXT: POKE36874 „0: NEXT 
Af=" u 
FORI=1TDS00: NEXT=PRINT"ERJ" 


PRINT"EEI VERSUCHE MIT DEINEM 
PRINT". ZU UEBERSPRINGEN. 
PRINT" EIN AUTO MEHR ZU 


MOTORRAD SOVIELE 
NACH JEDEM ERFOLG- 
LEBERSPRINGEN 


Programme 


D$: String für rechte Rampe 

Z(X): Zahl der zu überspringenden 
Autos . 

SCH: Score 

CA0Q: Verbleibende Motorräder 
R(X): Runde 

B: Aussehen des Motorrades 


| X: Für Tastaturabfrage 


KL: Hilfsvariable für Rangberech- 
nung 


1 AM: Wert des zu spielenden Tones 


BM: Dauer des Tones N 
X$: Enthält gedrückte Taste beim | 


| Menü 


G1$: Enthält CHR$ für Cursor up 
G1: Auf dem Drucker auszugebende | 
Bildschirmposition 
G0$: Enthält den Wert des auszuge- | 


: benden Zeichens 


G3: Holt den Wert des auszugeben- 


den Zeichens vom Bildschirm 


64: Hilfsvariable 
N$: Name des Spielers 
3, 1,A,T, EX, LK, 60, 62: Zählva- 


| riablen in den For...Next-Schleifen 





IR 


DARK RODM SDFTWARE " 
1020 FORI=1T022:PRINT"M'MIDE(AF,I, 1)5:FORES4874 , 1#2+1303 FORT=1TD150: NEXT: FOKES& 


AUTDS WIE MOEGLICH" 
REICHEN SFPRUNB IST" 


1 





1070 FORT=1T010000: NEXT: PRINT" LERRBRBB STEUERUNG: EbpapRppeIIT Bi 

1100 PRINT"EIBBMIT FS WIRD GAS GEGEBEN. " 

1110 FRINT"S EINE BREMSE GIBT ES BEI DEINEM MOTORRAD NICHT 1" 

1120 FRINT"B BRECHTS UNTEN STEHT EIN MAENNCHEN, DAS JEDEN GELUNGENEN 
SPRUNG" 

11539 PRINT". MIT EINER "KOKE’-FLAGGE ANZEIGT." 

1135 FORT=1T010000:NEXT 

1140 PRINT’LIIE WENN DER VERSUCH 
EINER" 

1150 PRINT" "BKom'-FLASGE AN, " 

1160 FRINT"EREI WENN DU ES SCHAFFST, UNTER DIE BESTEN 10 

1170 PRINT" KANNST DU DICH IN DIE HIGHSCORELISTE EIN- 

1175 FRINT"BEg" 

1190 Bf=" TASTE DRUECKEN ge" Hi 

1170 FORI=1T022: FRINTMIDS(B£, 1,1332 IFPEEK 197) <>54THENIZ0G 

1200 FOKE36875,150: FORT=1T050: NEXT: FOKEI4976 ,0: NEXT 

1201 PRINT CRNBENEARSANRERUTEERBER" 


HICHT GELUNGEN IST, so ZEIGT ER DAS MIT 


ZU KOMMEN, DANN" 
TRAGEN !" 
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1210 FORI=1T022: PRINTMID$ (C$, 1,135: IFPEEK (197) < >GATHEN1Z00 
1220 POKE364875 , 150: FORT=1 TOS0= NEXT: POKEI6875,0: NEXT 

1221 PRINT'TEREIERERSERENNEERBENGNL 

1230 GDTOI180 

1300 PRINT"KAERBIICH LESE DIE DATEN: ":RETUR 

2000 POKE34879 ,B:PRINT"LZS“ 


2010 AFto)=" wr pi " 
2020 At{li)=" WITT" 
2030 Ast2)=" WDARK ROCme | " 
20409 AF(IZI=" dd SUFTWARE 4" 


2050 Af(4) zi u 
2060 AFfD=" 7 " 


2070 Aftö)=" | LPRESENTSIS pe 
2080 AF(TI=" | pe 
2090 AftB)=" | A je 
2100 Attd)=" | ]j je 
2110 Aft10)=" | ih jr 
2120 Astild=" j Poll ju 
2139 A$(1D9=" | I HA je 
2140 Attıa)=" | Kl je 
2150 Astıia)=" } ee ji 
2160 AttıS)=" L 1 HL ge 
2170 Astis)=", > Zu “M 
2180 A$(iT)=" pr 5 
2190 A$t19)=" 72 ww" 

2200 Astig)=" WFSTUNTMAN m" 
2210 A$(20)=" u u" 


2250 A$(21)=" BY RAINER ZIMMERMANNGI" 

2240 FORI=0T020: PRINTA$(T) : IFASCL)=AF (16) ORA$ CD) =A$ (4) THENPRINT"DI" 5 

2250 POKES6875, INT (RND(1) #100) +130: FORT=1T0300: NEXT: POKE36875, 0: NEXT 

2260 FÜORI=1TD23:PRINTMIDF (A (21) „1,1) 3: POKE36877 , 128: FORT=1T0300: NEXT: POKESA877, 
Oz NEXT | 

2270 FORT=1T010000: NEXT: RETURN 


Teil 2: 


0 Hi0)=10750: FORJ=1TO10:SH&£ (9) ="VG-20 :HlD=Hid-13-750: NEXT 
1 POKE34B78, 15:60SUB10000: GOSUR11000 : 

= A=1:0=1:6=310 

10 PRINT"L.":POKESABAF 1295: POKES6877 „8: FOKESAB78 ‚15 

11 SP=5P+1: IFSPSPSTHENSP=1 

i2 IFOG>=PSTHENSSO 

13 iFCA(SP)I=S<OTHENGOETOLL 

14 IFSP>PSTHENSP=1 

20 FORI=0T021:POKE774B+1 ‚117+128: POKE7834+1 „247: FOKESBSS4+1 ‚4: POKE7769+30720+1,4 
:NEXT 

21 FORI=OTO21:POKE7900+1 ‚247: POKE7966+1,247: POKESBGZOHI „4:FOKEIBABS+I „A:NEXT 

22 FORI=0T021:POKEB1720+I 247: FOKEB1270+ 1+30720 ,4: NEXT: POKEB1&? „Zi: POKEB194,72 

24 ASti)=" SERCEEEEN DFü":A% (2)=" BARCHEEEBN EFG":ASs(FI=" SHIJEERRBEN KLMN“ 
25 BF="GORTBEOF" = CH= "ERBETEN IETSTSTSTTSTHTETETNE HE ZONE" = Di=" By) "TEBBi+" 

26 FRINTCH" 8"; eFORI=1T0Z (SP): PRINT"D"BS3 :NEXT:PRINT"D"DE 
27 PRINT'EREIS"SP"UPUSC cap} 3 
258 PRINT"BIKES"CAtSP) 

29 TERTARRTE ER 
30 
40 FORA=1T019:B=B+1: IFB=TTHENB=1 

45 POKES6874 ,250- (673) 2G05UB200 

50 PRINTAF(B) "BREI" ; :FORT=1TOG=NEXT=NEXT:D=D+1: IFD=STHENLOO 

&0 PRINT" a | ":G0T040 

100 FRINT* EINER BEE": FORA=1TOL-1 (65-500) 7/2013 2 PRINT "Ca Ati), FORT=-1TOB 
:NEXT: NEXT 


110 PRINT'TIEE KEmmM "z:PRINT"IRRI'ASCH 5 IFFOSCLI-S<S>3HZ (SP) *ZTHENSOO 
115 POKES079+30720+Z (SP) #2,5 A 

120 FOKESO79+Z (5P) 2,42: PRINT" IE ZUmESI Eleiel" : : FOKEB10O0+Z (SP) 2243,59 
125 FORA=1T011-Z(5P}#*2: PRINT'CHEBMI"AS (2) ; : POKEBL2O »247: PDKEAOYS,35 

126 POKE38840,4:POKE38818,5: FORT=1TOG 

130 NEXT=NEXT:POKE36874 „Oo 








RDUND"RISP) 


Ba | | Sompute mib 





1185 


140 


3 +1: 


145 
70 

150 
170 
171 
z200 
210 
220 
250 
soo 
01 
=02 
03 
504 
sl 
S20 
330 
540 
350 
Bu] Te) 


programme 


PÜKEB141 ,25: FOKE38881 „5: POKEB152, 23: POKEB184 „24: FORT=1T05000: NEXT= Z (SP) =Z (5P 
Dei 


IFZ (SP) >&THENZ (SP) =125C (SP) =SC (SP) +5000: CA SP) =CAISPIHISR (SP) =R SP} +1: G0SUB1 


SC(SP)=SCI5P)+Z (SP) #1008R (SP): GOTOIO 
GOSUB45000 
RETURN 
X=PEEK (1973 = IFX=SSTHENG=B-20: GOTO220 
6=G6+20: IFG>310THENG=310 
IFGLAOTHENG=40 
RETURN 
FOKES162,23: POKEB184 , 24: POKE9141 „26: POKESSR&1 „2: FOKES6B74 „0 
FOKES£EB77,140:FRINT" INSEL) _ MINE !1 "5: POKEB078,35: FOKESOYF, 36 
FOKEZ8819,5: POKE38819,5 
FOREX=15TO8STEF-. 05: POKE3687B ,EX:NEXT 
FRINT'CHABI KRRI\]";:FOREX=7TOOSTER-. 05: POKESA8B7B „EX: NEXT: POKES4877,0 
PRINT“ "5: FORT=1TO2000:.NEXT:D=1:8=310:Ch (SP) =CA(SP)-1= IFCASPI=OTHENSSO 
GOTO1O 
FORJ=1T010: IFSC (SF) >H I) THENKL=J: GOSUR1S500: J=10 
NEXT: G0SLE40000: FORT=1T07000: NEXT: DG=0G+1 
POKE36867 240: 60T010 
POKE34849 , 7240: 6DT01 


10000 POKES5879 ,8: PRINT" " 

10010 PRINT" DARK ROOM SOFTWARE IF"; 
10020 PRINT" up“ 

10030 PRINT" "WWPROUDLY PRESENTSMPEEZ" 
10040 PRINT WO WEB PER Pi =; 
10050 PRINT" EaREg mE ml BBi R] "Wi ERBE Im " 
15040 PRINT'WI uni I ET Rn  "" 
10070 PRINT" mE pl BEI B] KENYG BERG Ey 


10080 PRINT" PER WE m BEE [> 
10096 PRINT”L 277 % 


10100 PRINT"WRIBY RAINER ZIMMERMANN" 


10110 PRINT" re" 
10120 FRINT"® KERPERF VEiun " 

10130 PRINT" wer u u" 

10140 PRINT" gerry a ET" 
10150 FRINT" 9 ei Bi u  " 
10150 PRINT" di BB ni BB Bl “ 
10170 PRINT" FIT) 1998471" 

10180 PRINT" ww ya" 


19185 RESTORE 
10170 READAM= READBM: I FAM=- ITHEN10250 


oO 


10200 POKE35875 ‚AM: POKES4874 „AM: FORT=1TOBM: NEXT: PFOKESA875 „0: POKESAB7& „9:50T01017 


10250 POKES5875,0: PIKE35874 ‚0: FORT=1T01000: NEXT: PRINT’LS"E RETURN 
11000 POKE198,0:PRINT"Lz" 

11010 PRINT'"ERERBEFIM — SPIELBEBINN" 

110620 PRINT" REEBISFSE - HIGHSCORE" 

11030 FRINT’RERIIFSE - HIGH SAVEN" 

110640 FRINT'"REBIIF7TE -— HIGH LADEN” 

11050 PRINT"ERBIID WM — HIGH DRUCKEN” 

11066 GETX#: IFX#="B"THENPRINT "Wi: GOSUEFS000: RETURN 

11070 IFXS="@"THENISOOO 

11050 IFX$="jg" THENZ0000 

11090 IFX$="R" THEN2SO000 

11100 IFk$="D"THEN30000 

11200 GOTO110A0 

15000 FRINT"Ua HISEHSCORETABELLE" 

15010 PR INT" =====2=22==2==220o = 

15020 FORJ=1TD10:FRINT=PRINTSPC (S-LEN {STRE (II 3) "IB # 
15030 PRINTH$ {TI TABÜ21-LEN (STRFCHLIYI DI HE H 

15040 NEXT:FOKEi 78, Os WAITI9S, 1:50T011000 


15500 PRINT"LIU 
EET- 


EN 





DEIN NAME WIRD IN DIE HISHSCORETABELLE VEBERNOMM 


15520 FORLK=10TOKLSTEF-I:H{LKI=SHILK-1) 5H$LKI SHE ILK- 1) :NEXT 
15530 HIKLI=SE (SP) EH& (KL) =N# (SP) : FDRT=1 05000: NEXT RETURN 


2185 


CSompute mif 


programme 


29000 PRINT"KMa RECORD" UND "PLAY’ DRUECKEN. " 

20010 WAIT37151,64,44: PRINT'BISIN DRDNUNG. "= OPEN1,1,1, "HIGH" 
20020 FORI=1TO10:PRINT#1,HCI) =PRINT#1,HS CHI NEXT 

20030 CLOSE1:GOT011009 

25000 FRINT"LE'"FLAY’ DRUECKEN. " 

25010 WALITS7151,54 ,A44: PRINT"BISIN ORDNUNG. "= OPEN1,1,0, "HIGH" :FRINT"EBSLADE HIEH. " 
25020 FORI=1T010: INPUT#1,H(T) 2 INPUT#1 HSID) =NEXT 

25030 CLOSE1:50T0110009 

50000 PRINT"LIEIDRÜCKER BEREIT 7?" 

50010 GETZ$: IFZ$=" "THENZOCLGO 

30020 IFZF=" J"THENZ1000 

30030 IFZ$="N" THENSOS0O 

50040 GOTOI0010 

>0500 PRINT"ERIDRUCKER ANSCHLIESSEN UND ’F’ DRUECKEN!" 
50510 GETZ#: IFZ#< >"F" THENZOS1O 

51000 GSOSUB32000: 61$=CHR$ (145) 

31010 OPEN4 „4: PRINT#4:G1=76458 

51020 FORGO=0T022: GOf=&1$:81=-81+72 

s1030 FORGZ=G1TOS1+21:63=FEEK (67) 

21040 I3FG3>128THENSS=63-128: 64=1: BÜL=GOF+CHRE (18) 

51050 IF (6370) # (65732) THENGSS65+64: 60 TOZ1 100 

31080 IFIG35>311# 1(G3<44) THENZ1100 

31070 IF (63763) #(63<94) THENGF=6S5+178: G0TOS1100 

31080 IF (635953 #153< 128) THENGS=G3+84: GOTOZ11060 

=1100 GOF=50OF+CHR$ (63) 

Ssi1io IFG4=1 THENGOF=GOF+CHRE (146) :G4=0 

31120 NEXTS2:PRINT#4 ,G0#:NEXTSO 

31150 PRINT#4: CLOSE4:G0T011000 

52000 FRINT"Ü} HISHSCORETABELLE" 

32010 FRINT "MUDHoOme-z2oomzsozzsecen ! 

32020 FORJ=1T010=:FRINT=FRINTSFC (3-LENSTRE(IDI I JE. "5 
32030 PRINTHE GP) TAB{ZI-LEN (STRECHODI DI EHI 

>2040 NEXT:RETURN 

35000 PRINT’LERERERISFIELERZAHL (1-5) "4:2 INPUTPS 

35005 FORSP=1TOPS 

55010 PRINT"RINAME SPIELER"SP3 INPUTNE (SP 

35015 IFLEN{N$ (5P) ) > OTHENSS010 

35016 NEXT 
33020 FORSP=1TOPSSSC(SPI=0:CA(SP)=5:Z (SP)=12RSP)I=1:NEXT:SP=0:08=0 
35030 RETURN 2 

40000 FOKE36949 „240: PRINT "Jg" 


40010 PRINT"ERS. y" 
40620 FRINT'EZ 77 
40030 PRINT"BEZ | Si: 
40040 PRINT"BIS | fr 
430050 PRINT" | I ir 


400560 PRINT"EIA | j" 
400685 PRINT"EIS | re 
40070 PRINT"_iR | j" 





40080 PRINT". | ne" 

40070 PRINT"IE u ur“ 

40100 PRINT" rt" 

40110 PRINT" a m ru 

40120 FRINT" wa. m ar" 
40130 PRINT" a "u ur" 
40140 PRINT" LrN 1 wog 
40150 PRINT" ww UT" 
40140 PRINT" ur we 
40170 PRINT" un ©; 
30180 PRINT" a Teen 
40190 PRINT" “a gg" - 


40200 PRINT 'ERBEREETIS "NE (5P) 

40210 FRINT"IIBEBIO —"SC(5P) 

40220 RETURN 

45000 POKE35849 ‚240: POKE36879 „102PRINT "Lg" 

45020 PRINT" u"; 

45030 PRINT" wg m .—mwaugeEumer wm m"; 


in | Compute mi 7185 





programme._ 


450490 FRINT' RES mama 

45050 PRINT I or a I ©: 

45060 FRINT" DE GR Wei m DEU RDEUMmL 8 

45070 FRINT m a a er a 

450909 PRINT" m"; 

45100 FRINT"ERIE DU HAST DIE"RISP}- -1 "RUNDE" 

45110 PRINT'"E GESCHAFFT tt!" 

45150 FORT=1T0&000: NEXT: PIKE36849 „255: RETURN 

60000 DATA225,360 ,225,360 ,225,240,228,120,231,340,231,240,228,120,231,240,232,12 
o 

60001 DATA23S,720,240 ,360 , 233,360, 231,740, 225,260,235,240,232,120,231,240,228,12 
ö 

80002 DATA225,480,—-1,-—1 





Sie als Sepp haben die schwere Auf- 
gabe, auf Ihrem Weg von der Arbeit 
nach Hause durch das Verkehrsge- 
wühl einer Großstadt zu gelangen. 


zeitliche Begrenzung gibt es für sei- 
nen Weg nach Hause nicht. Sie ha- 
ben also die Möglichkeit, in aller 


Das Programm hat den Vorzug, den 
tatsächlichen Verkehrsverhältnissen 
zu entsprechen. In dem täglichen 
Verkehrsgeschehen müssen Sie sich 
als Fußgänger (Sepp) ständig vor 
den Kraftfahrzeugen in acht nehmen. 
Bei einer Berührung mit den Autos 
verlieren Sie sofort eines Ihrer .drei 
kostbaren Leben. Sind Sie aber trotz 
aller Vorsicht dreimal von einen Auto 
angefahren bzw. überfahren worden, 
beginnt das Spiel von neuem. Ubri- 
gens wird Ihnen pro Spiel eine 
Punktzahl angezeigt, so daß Sie je- 
derzeit prüfen können, wie gut Sepp 
von Spiel zu Spiel durch den tägli- 
chen Berufsverkehr gelangt. Eine 


Listing Teil 1: 


iO 
20 
30 
so 
si 
s2 
35 
54 
35 
i00 
101 
102 
103 


PRINT "ISISERESTSTRTERT 





FORC=7432T07679: READAs POKEC „A: NEXT: POKES6B69, 255 
PRINT"LEBN 23456 178 
PRINT" az u ee — 


PRINT" 

PRINT"BSSSBITTE TEIL 2 LADENEZ&":NEW 
DATA&O,664,189,161,161,189,66,60 
DATAS56,124,254,186,108,56,40,108 
DATAO,15,15,32,127,97,109,12 
DATAO,128,64,32,255,225,237,12 

104 DATAO,1,2,4,255,135,193,48 

105 DATAO,240,8,4,254,134,182,48 

104 DATA0,0,238,1356,232,40,238,0 


1185 Gompute em 


Ruhe und mit größter Vorsicht zu 


marschieren, Nehmen Sie sich Zeit 
und seien Sie auf der Hut, damit Sie 
nieht ein Opfer des Molochs Verkehr 
werden. 





FOKES?,28: FOKESG, 28: CLR= FORI=71688T076881: FOKEI „FEEK (I+25800) 3 NEXT 


31 





programme 


107 DATAO,0,238,170,174,172,234,0 

108 DATAO,0,224,128,200,128,232,0 

109 DATAO,0,171,170,234,170,171,0 

110 DATAO,0,168,40,186,188,170,0 

111 DATAO,0,138,138,138,138,233,0 

112 DATAO,0,187,162,179,18&0,59,0 

112 DATAO,0,128,0,150,128,180,0 

114 DATAO,0,234,75,74,74,74,0 

115 DATAO,0,184,160,178,150,186,0 

11& DATAO,0,234,170,238, 164,232, 

117 DATNO,0,69,69,69,69,119,0 

118 DATAO,0,97,84,102,100,87,0 

119 DATAO,0,114,66,115,18,114,0 

120 DATAO,0,184,162,178,162,186,0 

121 DATAO,0,151,209,178,148,151,0 

122 DATAO,0,46,106,174,34,34,0 

23 DATAO,0,238,169,238,162,238,0 

124 DATA128,128,128,128,129,178,128,128 
125 DATAO,0,0,0,0,0,0,255 
126 DATAL,A,1,1,1,1,1,1 
127 DATAZSS,0,0,0,0,0,0,0 
128 DATA2SS, 55 ‚255,255 ,269 





+ [N 


Re 


127 DATAO,24,36.64, 165,36,36,3 
150 DATAO,0,0,24,274,0,0,0 
200 NEW 


Teil 2: 


5 REMBHSSSSIBHIRSHESHRISSRESSISIIHHHHSRIHIRISIHIIHRSESRIH EHI IRRE 
& REMMeHen EB Yan LLUKES HEINZ PETER HERR 
Fi REMr## (CH 198 DBIS 
10 PRINT"L"rPU= DE LI=2: FOKETSB87B, 15: TIE="000009" 

20 FOKESABSI Pat 

30 PRINT" ÜIEen/ OEIEBBERRRERRERI« KU, - a 

S2 PRINTYBEREEEIN»e sa szormnasn 4 > aetsjehr- 
Fur 
















354 PRINT": ; 7==7=72==777=77799=79;5 - ?=77=7=97==22=-=77277=279; Tazs==2272977 su?" u 
6 FRINT"; 3 PPPP2II72779797077=79; = Tun Pan d FI IL BT"; 
38 PRINT" ====7===7=7===0==7==9, 7920007 z====7 77727779, 97927 

40 PRINT”; ; 7=77==7==7=2====7=79794 7727797797=7797 7947279, === 5 

42 PRINT"; ae ee 9====9,=7= ?77====7=7=7=77779", 
A4 FRINTOESPPP=777PPPA TI 7E=7T SLLLLLLALLLLLL ELLE. 


TO Asset WELRHERRTEIRTECHTR Ei" 

Si Bsetns HEHSHSHsHcHsErngs 

32 DES TRIER BHRZUURZRUE 

33 X=816?2: FOKEX, 34 

100 REMISSRRARSHRSSHRHSRSSSHSCHAUPTSCHLETFESHESRSRRRSSRSS 
- 101 FRINTERKePRN" ; INT(TI/60) 5 "RM": POKES6878, 15 

102 PRINT'ERERREIGS" ; Fu te" 

10% PRINT REDE" ; LI; a" 

104. FRINT "EERRPRRRRRFFEBERDI;" ; HI; 

105 A#=RIGHTE (A$, 19)4+LEFTEIAF, 1): B$- RIGHT# (BF, 1)+LEFT&(B$, 1973 

110 CH=RIGHTE (CH, II) +LEFTE (CH, 1) 

115 PRINT "Edel" ; Ati PRINT "EEK KFREISBI" ; BE: PRINT 'ERBDISKE 

120 T=PEEK (1773: IFPEEK (X) <>SATHENLI=LI- -—1: EOSUBSO0: GOT0400 

125 IFT=S3STHENY= -- 72: GOSUB?O0 " 

127 IFT=30THENY=+272; GOSUEBZOO 

127 IFT=45THENY=-1:60SUB2009 

131 IFT=4&THENY=+1:6G0SUB200 

197 FOKE3B76,0: G09T0100 

200 REISE RREREROORUSFAHRENDOGROSERSRE 
238 IFPEEK CX+Y) =437THENPU=SPUH1 

240 IFPEEK (X+Y)=42THENGOTOZOO 

244 IFPEEK (X+Y) =350RPEEK (X+Y} =3ZA0RPEEK (X+Y} =370RFPEEK (X+Y) =3S8THENGOSUBSO0:LI=LI-1 
:GOTO4009 

45 IFPEEK IX+Y) SPZZANDFPEER (X+%Y) < >83 THENRETURMN 

Z50 FOKEX „32: X=X+Y: POKEX ‚34: POKEZ6874 ‚255: RETURN 





Gompube mi | un 


programme. 


200 REMEHRBBRRSSBRHHRRRRRRBIHI HH ER FOL SSH BEE E 

395 FRINT"W":FOEES&859 „240 

310 IFPU>HITHENHI=PU 

311 IFFUS>HITHENGOSUBSSO 

215 FRINT'EEESIE HABEN DEN DURCH- GANG INERBE"; INTITI/A0) 4 "SEC": FRINT'ERRRS BIS 
ESCHAFFT" i 

320 PRINT"BEESIHRE PUNKTE: "; FÜ 

323 FRINT'TBEEHISHSTCORE: ";HI 

330 IFLI> SIHENSATDEN 

335 BERFRERTERTIGSESISIEIEE 
>40 GETAS= IFAg< Fr "THENZAD . 

>45 GOTO1O 

400 FRINT"I”: PODKEZS86# , 240: IFLIS>OTHENSGTODEO 

4053 IFPU>HITHENGOSURSSO 

410 FRINT"ERIBSSIE HABEN ES LEIDER NIEHT GESCHAFFT," 

420 PRINT"EISIHRE FUNKTE: ";PU 

425 IFFU>HITHENHI=SPUÜ 

430 FRINT"EEIHIGHSCORE: ";HI 

440 GOTO3Z 

5300 FOKEZ4877 „220: FOR_L=1STOOSTEF-1: PDKE35878 ,L: FORM=1T0300: NEXTM= NEXTL: FOKESS877 
„Os RETURN 





WIN EERTASTE DRUECKENE" 





ANTSTE THESE FERBRESINEUER REKORD" 
3s1 POKE34878, 15: FORA=1T05: FORT=255STD1STEP-1:2FORE3A876,,T:NEXTT 
552 FORT=0T0255: POKES687&,T:NEXTT=:NEXTA: PDEE34876 ,0: PRINT"R" RETURN 


BALLOON-SHOT 


Balloon- Shot ist ein Spiel für die Grundversion des VC-20 


Man stelien ein Männchen in einem | dem wird sinnloses Herumballern 
Korb am rechten Bildschirmrand und | verhindert, weil man nach jeweils 5 
muß versuchen, die unregelmäßig | Schüssen nachladen muß. Dazu 
aufsteigenden Luftballons | muß die Spielfigur ganz nach oben 
abzuschießen. Das Spiel ist | bewegt werden. Ein akustisches Si- 
beendet, wenn 3 Ballons | gnai zeigt das Nachladen an. Für 
den oberen Bildrand erreicht } einen getroffenen Ballon gibt es je 
haben. Damit dies aber | nach Entfernung 7 bis 29 Pluspunk- 
nicht so einfach ist, die Bal- | te. Wenn man 23 Ballons getroffen 
lons zu treffen, bewegt sich | hat, erreicht man das nächste Level. 
vor dem Schützen eine un- | Die Zahl der entkommenen Ballons 
- durchdringbare Energie- | wird links oben anzeigt (bei: DISAP- 
mauer, die von Runde zu | PEARED)). 
Runde größer wird. Außer- 































Wenn man das nächste Level erreicht 
hat oder wenn das Spiel zu Ende ist, 
muB man: die SPAGE-Taste 
rücken. Die Steuerung erfolgt über 
die Tasten A (hoch), Z (runter) und 
= (Schuß). Mit F7 kann man das 
Spiel jederzeit anhalten. Vor dem 
Spieistart kann man mit Ft die Farbe 
des Männchens ändern. Wenn man 


20 Gompube mi 33 





programme 


keine Lust mehr hat, wird mit F5 das 
Programm aus dem Speicher gewor- 
fen. Mit F3 wird ein neues Spiel 
gestartet. 






oO GOTD1F 

IRRE FIRE 
2# BALLODON-SHOT #* 
FI FAN HH NAH 
4% (C) III. 'BS BY * 
3 * HARTMUT KELLER * 
& *BICKENBACHSTR. 5%* 
Far: ; * 
B*# * 
Ir, 


EEREHHENHERRNNE 
iO * -> ALL RIGHTS x 
11 = RESERVED Er + 
12 NEE 
= * FOX-SOFT LTD. * 
14 sa 5 Ba 
15 *+ROYAL-GRAFHICS- + 
i&4 ® CDOPERATION + 
17T RER 


Nachdem der 1. Teil des Programms 
gelaufen ist, darf man das Bild- 
schirmformat keinesfalls ändern, es 


.sei denn, das Bild ist nicht in der 


Mitte. Dann kann man es mit POKE 


| 36864,8 nach links und mit POKE 
36864,10 nach rechts verschieben. 


Das Programm wird nicht so schnell 
langweilig, weil es mit ‚Multicolor- 
Hiresgraphik’ arbeitet und einen ver- 
größerten Bildschirm benutzt! 





17 FOKRESZ,28: FOKES6& „28: L=36878: FOKESSO, 128 


20 FOKEL, 15: POKEL+1,172:POKEL-14,9: POKEL- 12,154: FOCHEL-11 


a AS" SESTTSTETETTEEEN SERBEBL BI BI Bappi.“ Gere 


lie 
= [SE SS u 
96 FORT-OTOS11: READTT: Ti= 
or 
100 
101 
102 DATAO,0,0,0,192,0,0,0 


107 DATALZ 


DATA128,192,128, 192,128, 192,128,192 
DATA129,176,149 „222,157,2723, 156,207 


DATA140, 196,149, 221 ,151,213,181,173 
104 DATAO,0,21,20,48,192,0,0 
DATA2IS,186,174,235,58,46,32,12 
DATA1650,224,128,128,192,0,0,0 
DATAS2 „45,11, 18,52, 45,11, 18 
DATA255,255, 170,17,17,17,0,0 


Und nun noch einige Hinweise: 


Vor dem ersten RUN sollte das Pro- 
gramm unbedingt abgespeichert 
werden, da es sich bei Eingabefeh- 
lern eventuell selbst löscht. Gibt man 


“im ersten Teil falsche DATAs ein, | 


meldet sich der Computer mit 
‚BREAK IN 96‘. Man sollte keine 
Zeilen hinzufügen, weil dies zu einem 
OUT OF MEMORY - Error führen 
würde. 






‚38: FOKEA4S, 13: POKEL+Z72 


Da: ER ne ne ES LI EEE Mil" a BF 
TAHTT:FOKE7158+T,TT3NEXT:IFTÄZ 


ZSASTHENPRINT""TI 


ze 
0 
| 



































‚2,253,2,12,0, 0,0 


DATAZB,118,243,251,255,254,124,124,56, 24,15,8,58,15,96,128 


DATAG&,129,0,0,0,0,0,0 
DATAO,0,24,0,90,90,0,24 
DATA2S5,255, 255,255, 255, 255,255,255 
DATAB,123,123,141,237, 140, 755,755 
DATAS5,218,219,235,235,99,255,255 
DATA16,215,215,25,59,88, 255,255 
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135 
156 
137 
158 
129 
140 


121 DATA2SS,1797,199,223,231,231,255,255 14 
122 DATA241,246,245 ,250, 250,249 ,255,255 142 
123 DATA144,151,151,216,222,216,255,255 143 
124 DATA132,1B1,181,198,214,214,255,255 144 
125. DATAZS,173,173,49 ,247 ,247 „255,255 145 
126 DATA@,123,123,156,189,141,7255,255 146 
127 DATAG6,90,90,99, 102,107,255, 255 147 
128 DATA17,2AL, 246,58, 122,25,255,255 148 
129 DATAIS1,57,33,57,121,255,255,.235 149 
130 DATA255,252,248,240,231,243,249,255 150 
131 DATA&, a: 51,231 ,240,248,255 151 


52 DATA27,27,27,227 ,227 ,227 „255 ,255 








DATAS6,110,207,223,255,127,126,50 132 DATAO,0,0,0,0,0,0,0 
115 DATA29,24,8,16,16, 846,1 173 DATA207,103,51,153,204,25,51,255 
114 DATAO,129,66,36,0,219,0,36 134 DATAO,0,0,0,0,0,0,0 


DATAZ31,207,159,63,127,63,1597,255 
DATA128,213,213,213,128,255, 255,255 
DATAZ32,234,232,258,174,255, 2599, 259 
DATA1I6&,171,136,174,136, 255,255, 255 
DATAZI2,248,243 ,240,255,252,254,255 
DATAZ4,48,231,51,153,12,5,255 
DATA48,24,204,152,51,103,207,259 
DATAF6,48,247, 115,251 207%, 157,259 
DATA253,127,253,2354,239,238 ,250,255 
DATA2ZSS, 295, 2595,79,215,215,205,255 
DATA128,192,224,240,248,7572, 254,255 
DATA1,3,7,15,317,683,127,255 
DATA=ZS4,253,251,247 ,2397,223,171,127 
DATAE,5S7,597,115,115, 2, 255,295 ; 
DATA227 ,251,291,227 ,227 3,227 ,255, 255 
DATAZ,27,251,3,127, 3,255, 255 

DATAS, 27, 251,227 ,251 ,3, 255,255 
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15% DATAZ,21,31,227,227 ,3,259,255 

154 DATAZ,21,31,99,99,3,255,255 

155 DATAZ,27,251,227 4227 ,227,255,255 
156 DATAS,27,27,99,99,3,255,255 

157 DATAS,27,27 ,224,227,227,.255,205 

158 DATA255,124,24,0,0,0,0,0 

157 DATA255,127,31,0,0,0,0,0 

150 DATA255,254,2498,0,0,0,0,0 

151 DATA2464,246,24& ‚1250 ,253,253,255,255 
182 DATA1ZZ,IBL, 191,214, 214,198,255,255 
1683 DATA181,173,173,177,179,593,259,255 
200 CLRIFRINT"URSBITTE LADEN SIE DEN 2. TEIL":NEW 





z20 L=36878: POKEL-7 , 255: PRINT "WS POKEL +3, 254: FOKEL+Z , 184: VP=6: PV=-38853:FF=10 

=5 FRINT'BE.W/- Era .00/. 7/6. 78.007.007. 7. RT EERETTEEERTETIOTTEIN" 5 
26 PRINT" ER]. -B/BICHORBIDRESORORICHICHET ERTEELT ER EERORÜERIOREORCHINEITEI-BIN" ; 

27 FRINT"BI/ERFTERGBINEN/ /B1/ /Ei/EIOBI/ BIOMIOBIOHEIG. BESTEN ERFTER ER ER ET; 

28 PRINT"; <ERIchlckiz Cl; Chi; EPEICHI; KR (Ei: ale aid. /—. / ./. DV „ DO/ERRERERERRE ETW ROH 
ORBBINBEBIPFTE" ; 

27 FRINT'RRREBBZIB/ /-/EIDBIOBIORE 





ehe Hal ehr 


’ 
. 30 FRINT" . BERPTERIOROE /NORDIOERPE Te 
BE Bl: " 
33 PRINT'"EREPFPER 
F3BSTART"; 
>54 FRINT'"EEBEAETSG-ErbiuFT END IE OF 7 FAUSEREERGET VER GAME" 
57 FRINT'TEITZBEBERIF „ _ E_ RE MEISSEN AB kW. E_ JOSE aa 
ERS 12"; 50 
>34 FRINT' ERRBRESTTEIUFTEU" _ Er Ot, irugegegaf 
40 FOKE&45 ,FF: PRINT'EREEET EIER BIEBREICHFFEISTERRISERBBIÄBSERIDERBIEFEN" 
4 FORT=PVTOPV+S:POKET, Vri NEXT: VP= VF+1: IFVE=7THENVF=2 
42 BETAF: IFAF=S"E" THENFOKEBZG,FF:RUNAG 
453 IFA$="" THENSYSA4802 
44 IFAs="B" THENFF=FF+1s IFFF=12& THENFF=8 
45 GOTO40 
A& FRINT'ERRRRBRiI” ; DI; "IBBIU" SS IFDISFTHENDI=-1 
47 AX=32-LEN {STREISEI ) EAY=FEERK (7&68B+AX) = PFRINTSPG (AX3 3 SC: FOKETOBBAHAX „AYS RETURN 
48 5C=0:BI=0:U=-30720:FF=PEEE (B20):L=76875: DIMB (273: 5=7882: LV=ei 
47 HH=18B:M=7758:W=0:H=14-LV : n 
So FRINT"LEVAXYILAVOCDSDOIESA 1 FAR" _' HOG=FTERSTLOOOTÖODRORDN Eier," 
si GOSuBaäa: FORT=7732TD91495STEF24 1 FOKET+U ,FFS FOKET+U+1,FF:FOKET+UH+2, 13: NEXT 
S2 FORT=H#2&+5STOHHRrFsrH5STER ZA: PÜKET „7: NEXT=FORT=77351T077957 : PFOKET „S: FREET+U,56: NEX 
r 
53 FORT=38481 1038593 
a4 FA=INTIRNDCLI=BI GG IFFX=STHENSA 
u FORTT=TTOT+4185STER ZE:FOEETT,FX:INEXT:B(T-3S4003 =INT (RND (II #4) #Zar442r T-USNEXTG 
GOTOSS . 
55 T=INT{IRNDULI#ZE) +15 IFR{TI=OTHENS? 
37 IFB(TIZT77OSTHENSO 
8 TT=INTIRNDIDHZDIHZE FOKEBITI ,TT+10: POKER (TI F26, TT+1 1: POKER TI +92, TH BETI=B TI - 
Ps 
57? IFFEEK(1F73=23THENPOEE19B8,0:WAITITS,1 
&0 IFFEEEKIIFTISITANDM>77SBTHENM=M-2Z&: POKEL-2,199: 607044 
&1 IFFEEK (1Y7I=SSANDMIBOPSTHENM=M+24: FOKEL-7 ,144: G0OTOs5 
a2 IFPEER (177)< F4AORPFEER (M+28) < 32 THENSB 
&5 E=M+28: J=K+24: J1=255: SH=5H+1: IFSHFSTHENGB 
64 FOKEK, 32: K=K+l:2J4=JJ-6: IFK=SJORPEEK {Ki} FTETHENTFO 
65 FOKER,9:POKEL+1,JJ:60T064 
5 FOHEM-Z&,0: POKEM-25,160: FOREM, 15 POKEM+1 ,2: FOKEM+28,3: POKEM+ZT, 4: POKEN+S 24,9: rF0 
KEM+ST,& 
87 FOEKEM+78,1&0: FOKEM+73 „160: FOEEL-2,03 IFM=7758THENSH=0: FORR=SZUOTD255: FOKEL, RR NE 
AT: FOEKEL,O 
68 IFH>ZANDRND (1). STHENH=H- 1: POKEH#D6+5 „7: FOREHHR26+5 „ F2: HNH=HH-1: 607058 
67 IFHHS 13THENHH=HH+1: FOKEHRrTA+S , 32: FOREHH#DS+5 „7: H=HHi 
70 S0T054 
80 FOKERB(T) „14: FOKEB(T) +26, 15: POKEBCTI +52, ,32: FOFEL-7,180: FOEEL+1 ,1BO: FORV=1T055 





1 ERFEFIREFFEFERRPRIRSRER IE: EB: in; 





. -EriiiieF IBICHANGSE RE BERTER-ZECDLDUR EEE AUIRPE 
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NEXT 

81 FOKEB(T) „165 FOKEB(T) +26 ,72: POKEL-2, 200: POKEL+1 „200: FOKEL-? „0: FORV=1TOSS: NEXT: 
POKEL+1,0 

82 FOKERCT) „32:B(T)=0:DI=DI+1:BOSUBA&: IFDI=ZTHENISO 

83 GUTO100 

70 IFK=ITHENAB 

”1 IFFEEK (K) <>10ANDPEEK (K) <>12THENFOKEL+1 ,0:607058 

'92 FOKEL-2, 177: FOKEL+1,177: POKER , 145 POKEK+2&, 15: SC=804K-M-224 BOSUBA&S FORV=TOAA: 
NEXT 

93 FOKEL-2, 202: FOKEL+1 ‚202: POKEK, 16: POKEK+24 ‚32: FÜKEL-2 ,0< FORV=1TOSS: NEXT: FOHEL+ 

1,0: POKEK ,72:B(K-M-28) =0 
1090 W=W+1: IFW<ZZTHENGS 
161 FRINT'EREERETERNBAIGET READY FOR LEVEL"ZLV+1E" PS IFPEEK 197) SSSTTHENFOKESAG, I 
NT{RND (13 +8) 26070101 
102 LV=LV+1: 601047 








150 GAS" Fe U = BEREEEZE-AME | | VERMESBERE kn) ı- ©; 
1L=34876 

151 FOKEA468,INT{RNDILI#1S) sPRINT"E ABER" SPC (VI GAS: IFFEEK (197) =32THENFOKEL 0:65 
OTOZO ; j i 


152 POKEL ‚255-0722 V=V+262 IFVSZS&THEN1S1 
153 Ve2:60T0151 


Farbenfroh für den Commodore 16 
Dieses Programm für den Commo- | det, der die gezeigte Farbkombinatio- | Die Tastenbelegung ist wie folgt: 
dore 16 bietet die Möglichkeit, in | nen hervorruft. Besonders geeignet 
Ruhe die geeigneten Farbkombina- | ist dieses Programm bei der Entwick- | 0 Bildschirmhintergrund 
tionen für Bildschirmrahmen und | lung eigener Software, aber auch, um 2 = Luminanz (Bildschirmhinter- 
Bildschirmhintergrund auszuwählen. | das Farbenspektrum des C 16 einmal grund) 


Zur besseren Orientierung wird hier- | kennenzulernen. 3 = Luminanz (Bildschirmrand) 
bei immer der aktuelle Befehl abgebil- 4 = Bildschirmrand 







1 u 









nl 





IB REM ==ssanesseeuneemner 
i5 REM = <C) 13655 Er 
<A REM = Fi. BACHLER 


&5 REM =ss===S2s 202205 






waı 









COLORB,Fi,F2:COLORA,F3,Fd4 
45 PRINTCHR$L147):REM CLR/HOME 

sd PRINT" COLOR 8,5 F12", 5 F23" COLOR 4, "533", ";E4 
3 GETAF 

4 IFAS="B"THENFI=F141:G0OT085 

65 IFAS="4" THENF3=SF3+1:G0T085 

r8 IFh$="2" THENFZSF2+1 607085 

rS IFAS="3" THENF4=F441:GOT085 

B8 GOTOSS 

85 IFFIS1ETHENFI=1 

3a IFF3P16THENFS=I 

5 IFF2>7THENFZ=O 

168 IFF4>7THENF4=B 

185 GOTO4B. 
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-6502-Assembler-Kurs 


Nachdem wir in den letzien beiden 
Teilen das nötige Grundwissen der 
Maschinensprache gelernt haben, 
möchten wir uns nun etwas genauer 
mit dem Microprozessor des C-64 
beschäftigen. Es nennt sich „6510* 
und ist softwarekompatibel mit dem 
bekannten „6502*. 

Der Microprozessor „6510* stammt 
aus der Familie der 6öxx-Prozesso- 
ren, die auf dem Gomputermarkt stark 
verbreitet sind. Er wurde speziell von 
Commodore für den C-64 entwickelt 
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und unterscheidet sich nur dadurch 
von dem „6502“, daß er einen einge- 
bauten 4-Bit-Port besitzt. In einer der 
nächsten Foigen werden wir noch auf 
die Funktion des Portes im C-64 
eingehen. 

Die sehr komplexe innere Struktur 
des „6510“ ist für den Programmierer 
nicht von wesentlicher Bedeutung. 
Um den Microprozessor verstehen 
und auch programmieren zu können, 
benötigt man eine Art „Programmier- 
model der GCPU* (Abbildung 1). 


ACCUMULATOR 
INDEX REGISTER Y 
der REGISTER X 
PROGRAM COUNTER 


STACK POINTER . 


PROCESSOR STATUS REGISTER, 'P" 
CARAY 
ZERO 

INTERAUPT DISABLE 


(Abbildung 1) 


Der Prozessor „6510* besitzt intern 
| eine Reihe von Registern, in denen 
| Operationen ablaufen. Ein Register 
ist genauso aufgebaut wie eine Spei- 
cherstelle. Es kann entweder eine 16- 
Bit oder eine 8-Bit-Zahl aufnehmen. 
| Der „6510“ besitzt insgesamt 6 Regi- 
| ster, davon sind 5 Acht-Bit-Register, 
während das sechste ein 16-Bit-Re- 
gister ist. Wir wollen uns nun die 
Bezeichnungen und Aufgaben der 
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einzelnen Register, am Beispiel unse- 
res Programmiermodels näher an- 
schauen. 

Der Akkumulator (auch Akku 'ge- 
nannt) 

Das wichtigste Register der GPU ist 
der Akkumulator: In diesem Univer- 


'sal-Register werden alle arithmeti- 


schen und logischen Operationen 
durchgeführt. Er enthält vor einer 
Operation einen Operanden und 


Compute mib 


nach der Operation das Ergebnis. 
Der Akkumulator wird im Zusammen- 
hang mit den meisten Adressierarten 
verwendet. - 


Das Y-Register {Indexregister) 
Dieses Register kann als Zwischen- | 
speicher eingesetzt werden. Die 
Hauptfunktion ist jedoch, im Zusam- 
menhang mit dem Akkumulator, die 
indirekte Adressierung. Hierbei wird 
das Y-Register als Zeiger verwendet. 


Das X-Register (Indexregister) : | 
Das X-Register hat die gleiche Auf- 
gabe wie das Y-Register. Unter- 
schiedlich sind lediglich die verschie- 
denen Adressierungsarten. 


Programm-Counter 
zähler) 

Dies ist das einzige Register des 
„6510“, welches 16 Bit aufnehmen 
kann. In ihm wird die Adresse des 
nächsten Befehlsbytes abgespei- 


(Programm- 


- chert. Es steuert also den Zugriff zum 


Speicher. Da es ein 16-Bit-Register 
ist, können 65536 Bytes adressiert 
werden. Wird der Programmzähler 
nicht beeinflußt, erhöht er sich nach 


| jeder Befehlsausführung um 1 bzw. 


mehrere Bytes, je nach Länge des 
Befehles. Der. Programmzähler wird 


nur selten vom Programmierer direkt 


beeinflußt, da er vom Microprozessor 
selbst verwaltet wird. 


Stack-Peinter (Stapelzeiger) 

Der Stack-Pointer dient zum Abspei- 
chern von Rücksprungadressen, SO- 
bald ein Unterprogramm aufgerufen 
wird. Man spricht auch von einem 
Kellerspeicher, welcher nach dem 
Prinzip first-in/last-out arbeitet, Wird 
ein Byte in den Stack transportiert, 
verringert sich der Stack-Pointer um 
1. Wird ein Byte geholt, wird der 
Pointer um 1 erhöht (incrementiert). 

Der Stack des „6910“ kann maximal 
256 Bytes enthalten und liegt in dem 
Bereich $100 (256) bis $IFF (511). 
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Das Status-Register (Flag-Regi- 
ster) 

Das Status-Register enthält Infor- 
mationen über das Ergebnis der letz- 
ten Operation. Bedingte Sprungbe- 
fehle bedienen sich der Information 
des Status-Registers. Dieses Regi- 
ster ist in einzelnen Bits aufgeteilt, 
welche alle getrennte Informationen 
enthalten. Den einzelnen Bits ist fol- 
gende Funktion zugeteilt: 

Bit 0 Carry-Flag (Überlauf) 

Das Garry-Flag wird auf logisch 1 
gesetzt, wenn ein Überlauf aufgetre- 
ten ist. Das bedeutet, daß das Ergeb- 
nis der letzten Operation die Zahl 255 
überschreitet. Dies tritt zum Beispiel 
beim Addieren zweier Zahlen auf. 
Bit 1 Z-Flag (zero) 

Dieses Flag wird auf logisch 1 ge- 
setzt, wenn das Ergebnis der letzten 
Operation gleich Null (Zero) ist. Ist 
das Ergebnis ungleich 8, wird das Bit 
gelöscht. 

Bit 2 I-Flag (Interrupt Disable) 

Der „6510* besitzt die Möglichkeit, 
Interrupts zu bearbeiten. Dieses Bit 
bestimmt, ob ein Interrupt ausgelöst 
werden darf oder nicht. Beim C-64 ist 
der Standardwert 0, das bedeutet, 
daß der Interrupt aktiv ist. 

Bit 3 D-Flag (Dezimalflag) 

Dies ist eine Besonderheit des 
„6510/6502°. Es gestattet die dezi- 
male Abarbeitung der einzelnen Be- 
fehle. 

Bit 4 B-Flag (Break) 

Wird eine Unterbrechung hervorgeru- 


ten, wird automatisch das B-Flag auf : 


logisch 1 gesetzt. 

Bit 5 

Dieses Bit ist nicht belegt und wohl 
für eine spätere Erweiterung des Mi- 
croprozessors gedacht. 

Bit 6 V-Flag (Overflow) 

Das V-Flag wird benötigt, um die 
Vorzeichen der einzelnen Zahlen be- 
arbeiten zu können. Es stellt prak- 
tisch das Bit’7 eines Operanden dar. 
Bit 7 N-Flag (Negativ) 

Dieses Flag wird auf logisch 1 ge- 
setzt, wenn das Ergebnis der letzten 
Operation negativ ist. Das ist dann 
der Fall, wenn das Ergebnis größer 
als 127 ist, also das Bit 7 gesetzt ist. 





Befehle des „6510“ 


Die Befehle des Microprozessors be- 
legen je nach Anzahl der Operanden 
1 oder mehrere Bytes. In Liste 1 






00 - BRK 
01 - ORA - {Indirect,X) 
02 - Future Expansion 
03 - Future Expansion 
04 - Future Expansion 
05 - ORA - Zero Page 
06 -ASL- Zero Page 
07 — Future Expansion 
08 - PHP 

09 - ORA - Immediate 
0A -ASL - Accumulator 
OB - Future Expansion 
DC - Future Expansion 
0D - ORA - Absolute 

DE -ASL- Absolute _ 
OF - Future Expansion - 
10 -BPL 
11 -ORA - (Indirech),Y 
12 - Future Expansion 
13 - Future Expansion 
14 - Future Expansion 
15 -ORA- Zero Page,X - 
16 -ASL - Zero Page,X 
17 - Future Expansion 
18 -CLC 

19 - ORA - Absolute, Y 
1A - Future Expansion 
1B - Future Expansion 
16 - Future Expansion 
1D - ORA - Absolute,X 
1E - ASL - Absolute,X 
tF - Future Expansion 
20 - JSR 

21 -AND - (Indirect,X) 
22 - Future Expansion 
23 - Future Expansion 
24 - BIT - Zero Page 
25 -AND - Zero Page 
26 - ROL - Zero Page 
27 - Future Expansion 
28 - PLP 

23 -AND - Immediate 
2A - ROL - Accumulator 
2B - Future Expansion 
20 - BIT - Absolute 

2D - AND - Absolute 

2E - ROL - Absolute 

2F - Future Expansion 
30 - BMI 
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werden alle Befehle des „6510“ in 
laufender Reihenfolge aufgezeigt. In 
der nächsten Folge werden wir uns 
genauer mit den einzelnen Befehlen 
auseinandersetzen. 








31 -AND - (Indirect),Y 
32 - Future Expansion 
33 - Future Expansion 
34 - Future Expansion 
339 -AND - Zero Page,X 
36 - ROL - Zero Page,X 
37 - Fulure Expansion 

38 - SEC 

39 -AND - Absolute, Y 
3A - Future Expansion 
3B - Future Expansion 

3B - Future Expansion 
3D -AND - Absolute,X 
3E - ROL - Absolute, X 
3F - Future Expansion 

40 -RTI 
41 -.EOR - (Indirect,X) 
42 - Future Expansion 
43 - Future Expansion 
44 - Future Expansion 
45 -EOR - Zero Page 
46 - LSR - Zero Page 
47 - Future Expansion 
48 - PHA 

49 - EOR - Immediate 
4A - LSR - Accumulator 
4B - Future Expansion 
46 - JMP - Absolute 
4D - EOR - Absolute 

4E - LSR - Absolute 

4F - Future Expansion 
50 - BVC 

31 -EOR - (Indirect),Y 
52 - Future Expansion 
53 - Future Expansion 
54 - Future Expansion 
55 -EOR - Zero Page,X 
56 -LSR- Zero Page,X 
57 - Future Expansion 
58 -CLI 

59 - EOR - Absolute, Y 
5A - Future Expansion 
5B - Future Expansion 
5C - Future Expansion 
5D = EOR - Absolute,X 
5E -LSR - Absolute,X 
5F - Future Expansion 
60 -RTS 
61 -ADC - 















































(Indirect,X) 
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63 - Future Expansion 
64 - Future Expansion 
65 -ADC - Zero Page 
1 66 -ROR - Zero Page 
67 - Future Expansion 
68 - PLA 

69 - ADC - Immediate 







































6B - Future Expansion 
66 - JMP - Indirect 
6D - ADC - Absolute 
6E - ROR - Absolute 

I 6F - Future Expansion 
1 70 - BVS 

i 71 - ADC - (Indirect),Y 
72 - Future Expansion 
73 - Future Expansion 
74 - Future Expansion 


77 - Future Expansion 

78 -SEI 

79 -ADG - Absolute, Y 
7A - Future Expansion 

7B - Future Expansion 

?C - Future Expansion 

7D - ADC - Absolute,X 
7E -ROR - Absolute,X 
7F - Future Expansion 

80 - Future Expansion 

81 - STA - (Indirect,X) 
82 - Future Expansion 

83 - Future Expansion 

84 - STY - Zero Page 
85 - STA - Zero Page 
85 - STX - Zero Page 
87 - Future Expansion 

88 - DEY 
89 - Future Expansion 

BA - TXA 

8B - Future Expansion 





Literatur 





[62 - Future Expansion . 


6A - ROR - Accumulator 


1 75 -ADC - Zero Page,X 
76 -ROR - Zero Page,X 


80 - STY - Absolute 
8D - STA - Absolute 
8E - STX — Absolute 
8F - Future Expansion 
90 - BCE 
91 - 5STA - (Indirect),Y 
92 - Future Expansion 
93 - Future Expansion 
94 - STY - Zero Page,X 
95 - STA - Zero Page,X 
96 - STX - Zero Page,Y 
97 - Future Expansion 
98 - TYA 

99 - STA- Absolute, Y 
9A -TXS 

9B - Future Expansion 
9C - Future Expansion 
9D - STA - Absolute,X 
9E - Future Expansion 
9F - Future Expansion 
AO -LDY — Immediate 
Al - LDA - (Indirect,X) 
A2 - LDX - Immediate 
A3 - Future Expansion 
A4 - LDY - Zero Page 
AS - LDA - Zero Page 
Ab - LDX - Zero Page 
A7 - Future Expansion 
Aa - TAY 

A9 - LDA - Immediate 
AA - TAX 

AB - Future Expansion 
AC - LDY - Absolute 

AD - LDA - Absolute 

AE - LDX - Absolute 

AF - Future Expansion 
BO - BCS 

Bi - LDA - (Indirect),Y 
B2 - Future Expansion 
B3 - Future Expansion 
BA -LDY - Zero Page,X 
B5 - LDA - Zero Page,X 









B6 - LDX - Zero Page,Y 
B7 - Future Expansion 
B8.- GLV 

B9 - LDA - Absolute, Y 
BA-TSX 

BB - Future Expansion 
BC -.LDY - Absolute,X 
BD- LDA - Absolute,X 
BE -LDX - Absolute, Y 
BF - Future Expansion 
c0 - CPY - Immediate 
61 - CMP - (Indirect,X) 
C2 - Future Expansion 
C3 - Future Expansion 
CA -{CPY- Zero Page 
C5 - CMP - Zero Page 
C6 - DEC - Zero Page 
C7 - Future Expansion 
08 -INY 

C9 - GMP - Immediate 
CA-DEX 

CB - Future Expansion 
CC- CPY - Absolute 
CD-CMP - Absalute 
GE - DEG - Absolute 
CF- Future Expansion 
DG-BNE 

D1-CMP - (Indirech),Y 
D2 - Future Expansion 
D3 - Future Expansion 
D4 - Future Expansion 
D5 - CMP - Zero Page,X 
D&6 - DEC - Zero Page,X 
D7 - Future Expansion 
D8-CLD. 

D9- CMP - Absolute, Y 
DA - Future Expansion 
DB- Future Expansion 
DG- Future Expansion 


DD-CMP - Absolute,X | 7 4 


.F2 - Future Expansion 
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DE- DEC - Absolute,X 
DF- Future Expansion 
EO - GPX - Immediate 
E1 -SBC - (Indirect,X) 
£2 - Future Expansion 
E3 - Future Expansion 
E4 - CPX - Zero Page 
E5 - SBC - Zero Page 
E6 - INC - Zero Page 
E7 - Future Expansion 
E8B-INX 

E9 - SBC - Immediate 
EA-NOP E 
EB - Future Expansion - 
EC-CPX - Absolute 
ED-SBC - Absolute 
EE - INC - Absolute 
EF - Future Expansion 
FO -BEQ a 
F1 - SBC - (Indirech),Y | 


F3 - Future Expansion 
F4 - Future Expansion 
F5 - SBC - Zero Page,XR 
F6 - INC - Zero Page,X 
F7 - Future Expansion 
F8 - SED 

F9 - SBC.- Absolute, Y 
FA - Future Expansion 
FB - Future Expansion 
FC - Future Expansion 
FD-SBC - Absolute,X 
FE - INC - Absolute,X 
FF - Future Expansion 
FB - Future Expansion 
FC - Future Expansion 
FD- S8BC - Absolute,X 
FE -ING - Absolute,X 
FF - Future Expansion 


6502 Microcomputer-Programmie- 
rung, Peter Heuer, Hofacker Verlag; 
6502-Programmierung in Assembler, 
4 Lanca A. Leventhal, Te-Wi Verlag; 
4 64 Intern, Angershausen, Becker, 
Englisch, Gerits, Data-Becker Buch 
6502/69602, Christian Persson, Hz - 
Heinz Heise Verlag E. Reif men 
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Gompute emib 


programme. 


SECRET VALLEY 


Schneider CPC-464 


Der Helikopterstützpunkt Helios wird von Teindlichen 


Der Hubschrauberstützpunkt Helios 
liegt in einem verborgenem Tal der 
Sierra Madre und ist von einem 
Schutzschirm gegen alle Angreifer 
umgeben. Feindliche Flugzeuge ha- 
ben es sich zur Aufgabe gemacht, 
diesen Schutzschirm zu zerstören 
und den Stützpunkt zu bombardie- 
- ren. Sie als Helikopterpilot haben 
nun die Möglichkeit, die angreifen- 
den Flugzeuge abzuwehren. Gelingt 
es aber einem Flugzeug, an ihrem 
Helikopter vorbeizukommen, verwan- 
delt sich dieses in eine Bombe und 
fällt auf den Schutzschirm. Dadurch 
wird die Abschirmenergie um eine 
Einheit verringert. Bei einer erreichten 
Punktzahl von 1009 wird die Schutz- 
araıdie ENISPIErTENG erhöht, 











10 
20 
SO 
40 
SD 
&0 
79 
1-78] 
le) 


REM "Gerrit: Valley” 

MODE © 

BORDER 4 
hi3=1000 

GESUB 1190 
CLS 

REM TITELBILD 












Flugzeugen bedroht 





Während Ihres Abwehrfluges mit ei- 
nem der drei zur Verfügung stehen- 
den Helikopter müssen Sie ständig 
auf den Tankinhalt achten, da der 


= Treibstoff nur begrenzt ausreicht. Um 
| aufzutanken, müssen Sie Ihren Heli- 
| kopter genau über den Standort des 


Tankes fliegen. Ein-Landen auf dem 


u Tank ruft eine AR Jen und 






190 PEN 15: LOCATE >, 12:PRINT"RAINER KROTZ" 


1109 PEN F:LOCATE 2, 16: PRIMT EHRE (220) 5% 


SSEHBE za? 

















beendet dadurch sofort das Spiel. 
Die Steuerung der Helikopter erfolgt 
mit dem Joystick, Vor Beginn des 
Spiels wird angezeigt, wie viele 
Punkte man für den Abschuß eines 
der verschiedenen Flugzeuge erhält. 
Auf dem Flugfeld ist die Anzahl der 
Ersatzhelikopter zu erkennen. 





PEN 14:L0CATE 2,5:PRINT CHRE(210)3" SECRET VALLEY .CHRE (210) 
PEN I0:LOCATE 2,10: PRINT"@ by" 


"SCHRE 


"SECHRE (2223; * 




















(225) 

120 FEN 15: LOCATE 2,12: PRINT"RAINER KROTZ; FOR ti=1 DO &000E NEXT ti 
1390 REB SCORETABELLE 

149. ELS:PEN 14:L0CATE 7,2: PRINT"* SECRET VALLEY #" 
150 LOCATE 5,5:PEN 12: PRINT" > SCORING <" 

1&09 FEN 10; LOCATE 2,B:PRINT CHRE (220) 3° POINTS: 50" 
170 LOCATE 2,10: PRINT EHR& (22133 FOINTS: 100" 

180 LOCATE 2,123 PRINT CHRS$ (222) 5 " POINTS: 50" 

170 LOEATE 2, 144PRINT CHRS (228); " FOINTS: 2090" 

2008 LOCATE 2,17:PEN 15:PRINT"BONUS EVERY 1000" 

210 LÜCATE 1,20:PEN 9:ıPRINT"Press 'FIRE’ to play" 

220 IF JOvio)= i& THEN 740 

230 GOTD 220 

240 MODE 1 

250 sC=0: #=200:1v=3: se=3:bon=1000 

240 ENT 1,100,5,2 

270 ENT 2,100,10,1 

ZB0 ENVY 1,100,2,3 

290 ENT 3,200,-1,2 
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programme 


500 REM BILDSCHIRMÄLFBAU 


310 PEN 1 
320 FOR b=28 TO 40:LOCATE b,Z1:PRINT CHR#C13Z1):NEXT b 
330 LOCATE 29,20:PRINT EHRE (21035; " "SCHR$I210)5" sCHREI20A) 5 CHR$ (207) 5" "EHRE 


(202) 3" “"LCHRE (203) ; CHR$ (204) 
340 LDCATE 37,19:PRINT CHR$ (201) 


350. MOVE 0,50 420 DRAW 430,76 

360 DRAW AO, 140: DRAW 70,90 430 DRAW 450,120:DRAW 439,120 
370 DRAW 100, 120: DRAW 130, 100 440 LOCATE 24,18:PRINT CHR# (208) 
380 DRAW 180, 148: DRAW 230,70 450 LOCATE 20,19: PRINT CHR$(Z05) 
390 DRAW 250,80:DRAäW 275,40 460 FOR ra=1 TO 40 

400 DRAW 310,300: DRAW 320,90: DRAW 340,140 470 LECATE ra,S:PRINT" "NEXT ra 


410 DRAW 3&0,110:DRAW 400,110 480 fx=iefy=INT{RND(1)#10+6) 





490 e=INTIRND(1)#S5)#1I0N = GOSUB 920,720,970,1020,1070 
S00 LOCATE #1,2,2:PRINT #1,"SCDRE: "5 sc 

519 LOCATE #1,20,23 PRINT #1, "FUEL "5 f 

520 LOCATE #1,2,4:PRINT #1, "HIGHSEDRE: "hi 

530 LOCATE #1,20,4:FRINT #1,"SHIELD: ";se 

540 y=15:2$=CHR$ 1210) :60T0 590 

550 LIEATE fx, fyıPRINT" " 

360 yz15: a6=CHR$ (210) \ 

570 fx=1:fy=INT{RND{1)#10+&) 

580 a=INT(RNDIH#ÖI+LLON e GOSUB 920,720,970,1020, 1070 
5970 PEN 10:LUOCATE 24,yıPRINT a$ 

00 LDOCATE fFr,fysPRINT” " 

&10 frefxtbg 

620 n=INTIRND(1}#2+1):0N h GOSUB 1670, 1670 

630 IF fy<6& THEN fy=4 

&40 IF Fy>15 THEN Fy=15 

&50 PEN 3:LOCATE fx,fy:FRINT f$ 

840 IF fr>23 AND #x225 AND fy=y THEN 1340 

670 PEN 1 

&80 IF fx>33 AND fx<36 THEN 1490 

&70 REM BEWEGUNG DES HELICOFTERS 
700 IF JöYto)=1 THEN LOCATE 24,y:PRINT" "ry=y-1:GDT0 806 
716 IF JOYtO)=2 THEN LOCATE 24,y:PRINT" "ıy=y+r1l:60TO 800 
7209 IF JOYtO)=15 AND y<14 THEN f=f-5:50T0 740 

730 GOTO 800 

740 SCUND 1,83,50,7,0,1 

750 IF y=fy THEN FOR d=23 TO fx STEP -1:60T0 760 

7&0 FOR e=23 TOD 1 STEP 1 

770 LOCATE s,„y:PRINT"-":LOCATE s„y:PRINT" ":NEXT s:60T0 790 
780 LDEATE d,ysFRINT"-":LOCATE d,y=PRINT" ":NEXT d 

790 IF y=fy AND fx<24 THEN 1120 

800 IF y<ä THEN y=&4 

810 PEN I10:LÜCATE 24,y:PRINT as 

820 LOCATE fr, fyıPRINT" "sfa=fktbg 

830 PEN 3:LOCATE fr,FfyEPRINT F$:PEN 1 

940 f=f-1 

850. IF f<1 THEN LOCATE #1,2&,2: FRINT nen 1420 
8680 IF y=18 THEN 1410 

870 IF y=17 THEN SOUND 3,478,20,7: #=200° 

880 IF f<30 THEN SOUND 3,32, 10, 7 

3970 LOCATE #1,25,2:PRINT #1, 

790 GOTD 590 

F10 REM ART,PUNKTE UND SCHNELLIGKEIT DER ANGREIFER 





920 #$=CHRS$ (220) 990 tg=0 ; 1040 RETURN 


930 bg=0.5 ze 1000 pg=100 1070 #$=CHR$ (223) 
940 tg=0 1010 RETURN 1080 bg=0.4 

950 pg=50 1020 f$=CHR$ (222) 1090 tgei 

960 RETURN 1050 bg=0.2 1100 pg=200 

970 FS=CHRE$ (221) 1040 tg=i 1110 RETURN 

980 bg=1 1050 pg=50 
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programme 


1120 se=sse+rngı IF sc5ebon THEN bon=bon+1000: se=3 

1130 SOUND 2,253,10,7: SOUND 2,253,100,7,0,2 

1149 LOCATE fx ,Fy:PRINT EHR$ (258) :FOR ex=1 TO SOO:NEXT ex=:LOCATE fr,fy:sPRINT" " 
1150 LOCATE #1,27,43 PRINT #1,5e 

1160 LOCATE #1,9,2:PRINT #1,sc 

1170 GOTO 570 

1189 REM ZEICHEN 

1190 SYMBOL AFTER 2009 

1200 SYMBOL 201 ,8,8,8,152,188,255, 155,255 

1210 SYMBOL 202,36,60,36,40,36,60,36,36 

1220 SYMBOL 203,0,17,127,255,149,255,213,223 

1250 SYMBOL 204,50,63,245,255,85,255,85,253 

1240 SYMBOL 205,0,8,72,40,16,232,8,28 

1250 SYMBOL 206,0,63,127,243,225,161,225,225 

i250 SYMBOL 207 ,0,252,254,207,135,133,135, 135 

1270 SYMBOL. 208,16,60,102,239,231,110,60,46- 

1280 SYMBOL 210,254,164,120,251,255,255,80,248 

12970 SYMBOL 220,0,0,0,140,255,54,48 

1300 SYMBOL 221,0,0,192,230,255,248,240 

1510 SYMBOL 222,0,1268,255,255,124,728 

1320 SYMBOL 223,0,231,66,247,255,255,36 

13590 RETURN 

15409 1v=1v-1 

1550 PEN 1 : 

1550 IF 1v=2 THEN LOCATE 31,20s4PRINT" " 

1370 IF lv=i THEN LOCATE 29 ,Z0:PRINT" " 

1580 SDUND 3,1012,100,1,1,0,9 

13970 IF 1v>0 THEN #=200:LÜCATE 23 ,yıPRINT " "SCHR$(238)5" "FOR etel TOD 1000:NEX 
T etzLOCATE 24,yePRINT* ":4=200:60T0 550 

1400 LOCATE 23, ys PRINT" " j 

1410 SOUND 5,1912,100,1,1,0,F:LDCATE 24,y:PRINT CHR& (238) ," "ıG0OTO 1720 

1420 1v=lv-1 ö 

1430 IF iv=2 THEN LOCATE 3i1,20:PRINT" " 

1440 IF Iv=1 THEN LOCATE 29,204 PRINT" " 

1450 SOUND 5,1012,100,1,1,0,7 

1450 IF iv>0O THEN f=200: LOCATE 23,y:PRINT " "SCHRF(239) 5" ":FOR et=1 TO 1000sNEX 
T et:LOCATE 24, ,yıPRINT" "LLOCATE 24,57 PRINT"_"2F=290 

sGOTD 540 

1470 LOCATE 23,y:PRINT" "3 CHRE(ZZBI;" 

1486 GOTO 1720 

1490 se=ss-1 R 
1500 FOR b=fy TO 17.5 STEF 0.1:L0CATE f%,bePRINT CHR$ (252): LOCATE fx ,b:PRINT" "4 
NEXT b i 

1510 SOUND 2,478,5,7:50UND 2,257,10,7:50UND 2,127,20,7 

1520 LOEATE #1,27,4:PRINT #1,5e:LDCATE fx,fy:ıPRINT® " 

1530 IF se>-1 THEN 570 

1540 SOUND 3,60,210,7,0,3 

1550 FOR r=35 TO 40 

15&0 FOR 1=34 TO 25 STEP —1 

1570 LOCATE 34,18: PRINT" " 

15809. LOCATE 34,20: PRINT"<H" 5 
3599 LOCATE 1,20: PRINT"<":LOCATE #320: PRINT" >" 
1800 NEXT 1:NEXT r 

1810 LOCATE 37,19: PRINT ® 

1820 FOR r=35 TO 40 

16350 FOR 1=34 TO 29 STEP -1 

1840 LOCATE 1,205 PRINT" ":LOCATE r,20: PRINT" " 
1559 NEXT 1:NEXT r 

16£0 GOTO 1729 

1870 fy=fyrtg 

1850 RETURN 

16890 fy=fy-tg . 
1700 RETURN - 

1710 REM SPIELENDE ä 

1720 LOCATE 15,10sPRINT">>> GAME DVER <<c- 

1730 IF sce>hi THEN hi=sc: LOCATE #1,12,4: PRINT #1,hi 

1740 LOCATE 15,12: PRINT"Press ‘FIRE’ ta start un 

1750 IF JOVY(O)=1& THEN 240 

17580 G0TO 1750 . 
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werkstatt 


DATA-WANDLER- 
Schneider CPC-464 


Mit Hilfe des Data-Wandlers können Sie Maschinensprachprogramme in Data-Zeilen unterbringen. Es handelt sich 
hier um ein Hilfsprogramm das eigentlich alle Schneider-Programmierer bei der Erstellung von Software berücksichtigen 
sollten. Einer weiteren näheren Erläuterung des Programmes bedarf es an dieser Stelle nicht mehr, da Sie die 
entsprechenden Befehle in den folgendem Listing genau erklärt finden. 


10 REMERRRRRTTTTTN TITTEN TEEN RR 


20 REM#* DATA-WÄNDLER * 
SO REM# v 1.08 1785 * 
AD REM* by M.Weber * 
so REM* Kuessnacht a/R * 
&0 REM# % 
70 REM# %* 


E80 REMEHRBSBHERSRRIHHHEE HEHE 

90 MODE 1:BORDER Os INK 3,13, 14: INK 2,8:LOCATE 10,1:PRINT "DATA-WANDLE 
R" - 5 
100 PRINT STRINGF (40, 154) ı PRINT+PRINT 

110 PRINT"Mit diesem Programm koennen Sie ein ME Programm in DATA Anweisungen 

verpacken. "ıLOCATE 1,8 

120 PRINT"Nach dem Eingeben der Daten steht ihnen ein fertiges Basicprogr. (DATA 
anweisung-en) auf Kassette zur verfuegung ,dass Siein 
ihre eigenen Programme mergen koennen” 

1530 LOCATE 14,22:PEN 3:PRINT "<Taste druescken>"ıPEN 1 
140 a$=INKEYFt:IF af="" THEN GOTO 140 

150 REM####* EINGABEMENLUE rent 

160 ELSIıLOCATE 13,1:PEN ZEPRINT'TE ING AB E N":PEN I 
170 PRINT STRINGF (40,154) ı: PRINT:PRINT 

180 INPUT "Startadresse tin Dez.}";start 

170 IF start<sO OR start> 45535 THEN GOTO 180 

200 PRINT: INPUT "Endadresse tin Dez.}"senda 

210 IF enda<O OR enda>45535 OR enda{=start THEN GOTD 200 

230 FRINT:PRINT"Unter welchem Namen soll das erzeugte Frogramm gesavd werden" 
240 INPUT prı$ 

250 IF LEN tpn#) >i& THEN FRINT"nicht lasnger als i& Zeichen!":60T0 240 

2860 FÜR x=1 TO Z000:NEXT x i 

270 ECLS:PRINT: INPUT "erste Programmzeile "szi 

zB0 IF zi<O OR z1>55535 THEN SOTD 270 i 

270 PRINT: INPUT"Abstand der Zeilen ";jz2 

300 ELS:PRINT:PRINT "Bitte eine Kassette einlegen und FLAY & REC drue 
cken " 

318 PRINT=PRINT "Wenn fertig bitte eine Taste druecken !" 

320 as=INKEY$:ıIF asf="" THEN 320 

330 REM Jemen FROGRAMM ABSPEICHERN Henne 

540 DPENQUT pn$: d$="DATA" 

>50 FÜR »=start TO endarid=PEEK {=} 

3&0 IF LENtH£I=O THEN H&=d$s+STRE (id) ıG0TO 450 

370 al$=S5TR$tid) sw=LEN (als) 1 a26=RIGHT$ (al$ ,w-1)3a8="  "+a2$ 

380 IF LENtH$I >50 AnD RIGHTFIHF,LI<>"," THEN G0OTO 410 
330 H$=Hf+as:GOTO 430 

400 GOTO 450 

#10 zei$=STR#(z1}:W=LEN (zeit): zes=RIGHT$ (zei$ ,w-i) 
420 Ha$=zes+" "+Hfızl=zlrz2: FRINT Haf:PRINT #7, Has: HF="":60T0 450 
430 IF »<>enda THEN SOTO 400 

440 GOTD 410 

450 NEXT 

460 CLOSEQOUT:END 





Leis Compute miP = 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen %& 


Biete an Software 


EPC 464111 Das ideale Geschenk f. Sie u. 
Ihn. Das Haushaltsprog. f. den privaten 
Haushalt. Mit Einnahme- u. Ausgabebilanz. 
Ständige Übersicht ü. Monatseinnahmen u. 
-ausgaben, Jahresstatistik, Menütechnik, 
Balkengrafik. K. Frank, Friedhofweg 26, 
7101 Löwenstein. Info ab 20 Uhr u. 0 7130 
/ 84.08. Cas. DM 33, Dis. DM 37 


.CPC-4641 12 Spielprogramme auf Kasset- 
te, DM 20,- an Posischeck Hamburg 
404576-207 oder Schein in Brief an Hans-J. 
Behrend, Neustadt 3, 3550 Marburg. 


CPC 464 Lohn- und Einkommensteuer, Su- 
per-Jahresausgleich, Monatslohnsteuer, 
Steuerklassenwahl zus. auf 1 Cass. für 60,- 
DM. Jährt. Aktual. ohne Neukauf Info gg. 
RP. Horst lichen, Niederfetderstr. 44, 8072 
Manching, w 0 84 59 / 16 69 


% Schneider CPC 464 * 


Standard- u. Individualsoftware, Zubehör, 
Bücher usw. Z. B. Datenbank, Textverarb., 
Sachbuchhaltung und Spielprogramme. 
Disketten für versch. Computer: 3”; 3,5"; 
5%". Händleranfragen erwünscht! info: HS- 
DATA, Haas & Schwarz GbR, Bahnhofspl. 
19, 6550 Bad Kreuznach 
% Schneider CPC 464 & 


CPC-484. 50 Programme auf Kassette ge- 
gen DM 40,- in Scheinen an: M. Günsche, 
Postfach 5604, 8700 Würzburg 1. Kein 
Telefon vorhanden!! Keine Raubkopien! 
Alle Programme LISToar 


© CPC-464 @ Gohbler (Strategie u, Ac- 
tion) 39,-; Fluglotse (Simulation) 29,-: Ka- 
iender (Druck NLO-401) 19,-; Cedi (Cha- 
racter Editor) 55,-; Handbuch zum Cedi 
15,-. Immer neue Programme in Arbeit. 
Fertige auch Individualsoftware. info u. 
Best. bei: Frank Aeffner, Im Bans 20, 2080 
Pinneberg ö : 


Verkaufe meine gesamte C 64-Pro- 
grammsammlung auf 10 doppelt bespiel- 
ten Disketten, z. B. Summergames, Lode- 
runner, Zaxxon, Hobbit, Simons’ Basic, 
‚Adressen C 54, China Miner, Supercopie, 
Turbo-Disk, Kong, Beach-Head, Bandits, 
Ski-Stalom, Schach, 2 Flipper usw. Alles 
zusammen nur 250,- fr. per NN. M. Meyer, 
Ergotzstr. 4, CH-4415 Lausen 


Tausche und’ verkaufe gute VC 20- 
Software. Liste gegen 1,- DM in Briefmar- 
ken. Sven Faulhaber, Bösinghäuser Weg 3, 
3401 Waake 





%* % % EASYMUSC %& %K %* 
Komfortables Musikprogramm für Schnei- 
der CPC; 2stimmig, spielen, komponieren, 
abspeichern etc.; symbolische Noten- 
schrift; ausf. Beschreibg.; Kassette nur 
25,- DM inkl. Porto (Vorkasse). Dipl.-Ing. 
Rainer Pecksen, Waldstr. 13, 5164 Nürve- 
nich-Rath, Tel. 0 24 26 747 97 


® CPC-464 @ Gobbier (Strategie u. Ac- 
tion} 39,-; Fluglotse (Simulation) 29,-; Ka- 
lender (Druck NLQ-491) 19,—; Cedi (Cha- 
racter Editor) 55,-; Handbuch zum Gedi 
15,-. Immer neue Programme in Arbeit. 
Fertige auch Individualsoftware. Info u. 
Best. bei: Frank Aeffner, Im Bans 20, 2080 
Pinneberg 


Suche Software 


Achtung! SCHNEIDER + ATARI-Fans K%r 
Laßt mich nicht im Stich! dcr Tausche 
oder verkaufe CPO-Softw. ATARI - VCS + 
Pac Man + Flipper für nur 96 DM. Andere 
Cassetten sogar zwischen 5 bis 19 DM! 
Eigene Liste an Peter Schloz, Johannesstr. 
122, 7060 Schorndorf. Gratis-Liste und 
Antwort garantiert! 


16 C 16 C 16 Suche Programmli- 
stings zum Selbstprogrammieren {vorw. 
Spiele). Verk. V 24-Kabel (RS 232), K-Ka- 
nal-Handfunkgerät betriebsbereit. Suche 
frühere Ausgaben von „Compute mit" ab 
Heft Nr. 5/85. Manfred Reiser, von-Buireite- 
Str. 4, 8531 Wilhelmsdorf 


Biete an Hardware 


CPC-464 111 Verlängerungs-Kabel zwi- 
schen Monitor und Keyboard mit passen- 
den Steckem nur DM 20,- an Postscheck 
Hamburg 32572-201 oder Schein an H. 
Behrendt, Marrensberg 2, 2390 Flensburg. 


VALCOM 1-AS 232/V. 24-Schnittstelle 
für Ihren Schneider CPC 484. Einführungs- 
preis VALCOM 1 + Software + dataphon 
s21 d nur DM 538,-. Info gegen DM 1,30 
bei Ihrem Schneider-Spezialisten VALC 
Computer GobR, Waagasse 4, 8230 Bad 
Reichenhal! 


® Sensation! @ Unser brandneuer Kata- 
iog ist da! Mit viel Hard- und Software für 
ihren © 64/128/VC 201 Supersonderan- 
gebofte: Spiele, Adventures, Utilies, User, 
Interfaces, Accessoires u. v. m! 2.8. 
DFÜ-Interface, Thermocontroll, Disc Aid, 
Superaction mit White Shark etc.! Gleich 
anfordern gegen 1,60 DM bei: CompVer- 
sand U. Tiedau, Ölmühle 27, 4270 Dor- 
sten 1 


Suche Hardware 


Suche C 64, gut erhalten, zahle bis 400,- 
DM oder Tausch gegen VC-20 +6 KK + 
Superprogramme, A. Dinsch, Berliner Str. 
17, 5980 Werdohl. 


Verschiedenes 


© C 64 Hallo Faulpelze C 64 
® Wir tippen Ihre C-64-Programme für ? 
Pfg. die Zeile ab. Schicken Sie Prg. an: 
Matthias Meyer, Martin-Luther-Str. 4, 2732 
Sittenisen. Tet. 042 82 7 21 30 


C64, Spieletausch. Heiko Küster, Kleine 
R. 7, 3100 Celle 


VC 20, Suche Basic-Literatur und Program- 
me für VC 20 oE. W. Kempf, Postfach 8.05, 
2940 Wilhelmshaven 


$ie haben einen Schneider CPC, aber 
noch wenige Programme dazu? Dann for- 
dem Sie am besten so schnell wie möglich 
das kostenlose Infomaterial an. Postkarte 
genügt. Wo? Natürlich bei Fa. Friedrich 
Meuper, 8473 Pfreimd, Postfach 72. Bitte 
angeben: CPC-Liste. Graiisinfo! 

I I ENTE 


%* An alle Comic- u. C 64-Fans x Wer 
tauscht mit mir alte Marveis aus dem Willi- 
ams-Verlag gegen C 64-Games? Für jedes 
Heft biete ich 2 Spiele {nur auf Kassette}. 
Schickt eine Liste der Comics u, Eure 
Spieiwünsche an: Norbert Strauss, Tan- 
nenweg 45, 6367 Karben 1. ich werde 
mich bemühen, alle gewünschten Spiele 
aufzutreißen! 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 


CSompube mi 
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An „Compute mit ...“ 
Tronic-Verlag 
Postfach 

3444 Wehretal 1 


Unter der Rubrik „Kieinanzeigen“- 
veröffentlichen wir  Gelegenheits- 
anzeigen für  Verkaufsangebofe, 
Kauf- und Tauschgesuche, Kontakt- 
aufnahme bzw.  Erfahrungs- 
austausch usw. 












Aktuell: 
Unsere Preise für „Kleinanzeigen: 
‚Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 
(dürfen nicht unter Chitfre erschei- 
nen 

Eine Veröffentlichung erfolgt nur ge- 


gen Vorkasse! 


Kleinanzeigen jetzt 
| noch preiswerter 


Das Programm simuliert die einfache 
Version eines Geidspielautomaten 
mit Super-Serie. 

Vorgesehen sind 20 Superspiele. Än- 
derungen des Programmes dürften 
jedoch nicht schwierig sein. Einige 
Beispiele werden folgen. 

Geladen wird das Programm am be- 
sten nach Zurücksetzen durch 
„CALL 2 mit LOAD“, „LOAD 
SMILEYMAT“, „RUN“ und EN- 
TER (Taste) oder CTRL und EN- 
TER (Taste) bei gleichzeitigem 
Drücken beider Tasten. 

Nachdem man. sich die kurze Be- 
schreibung durchgelesen hat, die zu 
Beginn (nach dem Programmititel) er- 
scheint, drückt man eine x-beliebige 
Taste (außer ESC). Darauf erscheint 
das eigentliche Spielfeld - ähnlich 
„gestilt“ wie man es von den Geld- 
spielautomaten her kennt. 

Genau wie bei den Vorbildern muß 
nun „gelöhnt“ werden, bevor man 
spielen kann. Hier heißt daß, einen 
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biete an Ü Software 


SMILEYMAT 


Schneider CPC-464 


Auftrag für Gelegenheitsanzeigen in „Compute mit...“ 


Name und Adresse 


Unterschrift 










tch wünsche folgenden Text zu veröffentlichen: 

















suche [} Software 


Betrag zwischen 0.3 und 200.0 einzu- 
tippen. Vorlaufende Nullen können 
weggelassen werden. Bitte kein Dezi- 
malkomma eingeben, sondern einen 
Dezimalpunkt! 

Also kurz: wollen Sie DM 5 einset- 
zen, tippen sie „5“ und „ENTER“. 
Daraufhin werden die drei Spielfelder 
aktiv. Nun können die Symbole 
durch Bedienen der „“-Taste im 
Zehnerfeld gestoppt werden. 
Programmunterbrechungen erzielt 
man regulär durch die Taste „R“ oder 
natürlich durch „ESC“. Bei Unter- 
brechung durch „R“ erfährt man, 


z.B. wie oft man spielt, gewonnen - 


und verloren hat. Hier kann man neu 
beginnen oder das Spiel beenden. 


PrOOLaNDOLINZERUND; 


Superserie 


Die Gewinnchancen pendeln sich 


Compute mib 


ee 
programme_ 


suche [] Hardware 
biete an [| Hardware 








Datum 


Zutreffendes ankreuzen 
DO Tausch U Versch. 
Ol Kontakte U Chiffre 




























nach längerer Spielzeit auf etwa 25 % 
ein. Die Anzahl der Superspiele ist 
auf 20 Spiele begrenzt. Bekommt 
man innerhalb einer Serie eine weite- 
re, so wird der Zähler wieder auf 20 
gesetzt. Hier !äßt sich gut eine Verän- 
derung einbauen. Verantwortlich ist 
Zeile 1670 BORDER 3,4: sups=20. 
Durch Veränderung von sups=20 
auf z. B. sups=50 erreicht man eine 
Erhöhung von 20 auf50 Superspiele. 
Damit das Stiling stimmt, sollte man 
noch Zeile 760 der neuen Situation 
anpassen. 


Kontrolizahlen 


Während des Spiels erscheinen in 
den Spielfeldern laufend Zahlen zwi- 
schen 0 und 4. Es sind dies die 
Zahlen des Zufallgenerators. Sie 
dienten nur zur Kontrolle. Entfernt 
man die Zeilen 1420 und 1430, dann 
hört das auf. 


Programme 












Variablenliste: spg = Spielgeld-Variable Trommelstop und Ende 
x, y = Plotvariablen für Titelrah- esg = INPUT-Variable (Spiel- sym$ = Zwischenvariable für Sym- 













men geld) . bole 
| = Variable für FOR/NEXT- sups = Zähler für Superspiele ix =(a b, c) Trommelwert- 
Schleifen trom = Zähler für „Spieltrormmel“ Variablen (Index für Abfrage- 
ab = INKEYS-Variable (Bild- z$ = INKEYS-Variable für Teil) 
wechsel} anz$ = Zähler Spiele total 






anzV = Zähler Spiele verloren 
Seesen anzG = Spiele gewonnen 

















15 REM == == trfqg = Variable Trefferquote 
20 REM == SMILEYMAT == 
25 REM == : = 
30 REM ==  EDPYRIGHTs by == 
35 REM == == 
40 REM == W. Ruscheweyh (1785) == 


> 
[d | 
Fr] 
m 
ri 
! 


Version 7/5 


me Tzmormzmmmzmaammuzmeoomummome 


Be nn m m dan on nn m br my a rn 





aa ZzautZSznzmazon em men. 


80 MODE i=-BORDER GO: PEN 1: INK i, 
85 KEY 138,CHR$ (238) 

70 x=20 

100 y-20542=4+1s: PLOT Kay 
110 IF x=&20 THEN GOTG 130 
120 GOTO 100 

150 BORDER 3 

140 x=620: y=y+1:PLOT x,y 
150 IF y=3B0 THEN GDTO 170 
180 G0TD 140 

170 BORDER A:x=&20 . 

180 y=380:x=x-1:PLOT Kyy 
190 IF x= 20 THEN GOora 210 
200 GOTD 180 

210 BORDER Sey-380 

220 x=20: y=y-1:PLOT Kyy 
250 IF y= 20 THEN GOTO 250 
240 SOTO 220 

230 BORDER #4: y=40 

Z&0 x=40: y=y+1:PLOT Kyy 
270 IF y=380 THEN GGTO 290 
280 BOTG 280 

290 BORDER 18:x=40 

500 y=580:4=x+1=2PLOT Kyy 
siö IF x=620 THEN SOTO 330 
320 GOTOG 300 

>30 BORDER SB: y=350 

3540 x=200: y=y-1:PLOT Kıy 
350 IF y= 20 THEN GOTO 370 
560 GOTOG 340 

370 BOÖRDER 9: x=400 

380 y=40:x=#2-1: PLOT Kıy 
370 IF x»= 20 THEN G0TO 410 
450 G0TO 380 ö 
419 PEN 32LOCATE 12,8:PRINT "SMILEYMA T":PEN A 
420 LOCATE 29,7:PRINT CHRFCBAISLDCATE 172,9: PRINT STRING$ (17,224) 

430 PEN 2:LOCATE 16,12: PRINT "Ein Spieli":PEN 13L0OCATE 19,15:PRINT "von" 
446 PEN 23 LOCATE 15,iB:PRINT "u. Ruscheweyh" 

450 PEN 3: LOCATE z8,21=2PRINT CHRFtIA4) "371985" 

460 FOR i=1 TG 4000:NEXT 

470 BVeszms=22Scmeesscmsscacmoocomenonnn 

A480 '=%* Anleitung **+ 


300 TLS:G0SUB 2190 


on | Gompure mi 1185 





programme_ 


Si0 LOCATE 12,3:PEN 2sPRINT "An 1 ei t un g":LOCATE 172,4:PEN Z3PRINT STRINGS( 


17,224) 

20 ° 

330 LEIEATE 4,8: PRINT "1} Einsatz eingeben" 
540 LOCATE 7,8:PEN 1:PRINT "Einsatz eingeben (mind. = 0.3) 
530 LOCATE 7,9:PRINT "- dann Ienter] druecken" 

S60 LOCATE A,11:PEN 3:PRINT "2) Spiel machen" - 
S70 LOCATE 7,13:PEN 1:PRINT "Die Spielfelder werden durch" 
S80 LEOICATE 7,14:PRINT "druecken der “.'-Taste im Zeh-" 

590 LOCATE 7,15:FRINT "nerblcck gestoppt." 

&00 LOCATE 4,173PEN 3:PRINT "3) Spielauswertung —- Ende" 

#10 LOCATE 7,19:PEN 1:PRINT "Wollen Sie nach einer Bilanz" 
620 LOCATE 7,20: PRINT "neu beginnen oder das Spiel" 

630 LOCATE 7,21: PRINT "beenden, dann druecken Sie" 

630 LDOCATE 7,22: PRINT "bitte ein ’r’," 

850 LOCATE 25,23:PRINT "OKAY 7 [Taste!" 

560 a$=INKEYS: IF ag="" THEN 640 


670 '"eemeorzaocmeo-cscsomeeeogeenmennn 


660 REM ** Spielfeld - Design «+* 

670 mm s=s2omemmzsuocmooomsscmesoocesemen 

700 CLS:BORDER 05 INK D,3:FAPER O:PEN 3 

710 GOSUB 2190 

720 PEN SELOCATE 12,3:PRINT 'SMILEYMA T":PEN 1 

730 LOCATE 29,2:PRINT CHRF(&4) :LOCATE 12,4:PRINT STRINGFt17,224) 

740 LOLCATE 25,&:3PRINT "DM":LOCATE 25,8:PRINT "SPIELE" 

750 LOCATE 12,B:PRINT "SUPER" :=LOCATE 15,17:PEN 2:PRINT "#GEWINNPLANK" 


760 LOCATE 5,17=:PRINT CHR£(24) STRINGS$ (3,CHR$ (22433 CHR$(24) " = 3.00 DM + 208 
UPERSPIELE" : 

770 LOCATE 5,20:PRINT CHR$(24) STRING$ (3,CHRF1226)3 CHR$S(24) * = 3,00 DM" 

780 LOGATE 5,21:PRINT CHRF(24) STRING$(Z „CHR$ (22933 CHR$(24) " = 2.80 DM" 

790 LOCATE 5,22:PRINT CHR$ (24) STRING$ {3,CHR$ (2283) CHR$(24) " = 2.50 DM" 

800 LOCATE 5,23:PRINT CHRS$ (24) STRING$ (3,CHR#(227)) CHRFL24) " = 2.00 DM" 


810 LOCATE 22,20:PRINT CHR$ (24) CHRE& (224) CHR# (224) CHRFL(228) CHRF(ZH " 
DM LI} 


820 LOCATE 22,21:PRINT CHR$ (24) CHR#(229) CHRE(724) CHR$ (229) CHR&(24) " 
DM " u 


8350 LOCATE 22,22:PRINT CHR$S (24) CHR& (228) ECHR$ (224) CHRF(229) CHRE(24) " 
DM za 


B40 LGCATE 22,23:PRINT CHR$(24) CHR$ (777) CHR$ (224) CHR&(227) CHR$(24) " = 1,00 
DM" 


850 LOCATE 5,24:PRINT CHR$ (224) CHR$ (110) CHR$ (224) " = 1.50 DM"; 


860 LOCATE 22,24:PRINT CHR$ (24) EHRE (110) CHREI224) CHRFC11O) CHR$(24) " 
DM" j { 


u 
[8 
" 
u 
© 


1 
N 
® 
.- 
© 


u 
ei 
* 
h2 
© 


n 
>= 
u 
[*) 


880 REM #+ Windows - ** 


890 '"zmemmse=sss=m=s22meememen seem = 


700 WINDOW#1,11,16,11,13: FAPER#L ,1 : PEN#I „3: CLS#1 
910 WINDOW#2,18,23,11,13:2PAPER#2,2 : PEN#2,3:CL5#2 
920 WINDOW#3,25,30,11,13: PAPER#S3,1 : PEN#3,3:CL5#3 
930 WINDOW#4,18,24, 5, 6:PAPER#4,O :PEN#4,3:CL5#4 
940 WINDOW#5,17,22, 8, B:PAPER#S,S :PEN#5,1:CL5#5 
950 WINDOW#4,11,30,15,15:PAPERSS,& :PEN#6,1:CLS#& 
90 * men mm rm mem mm 
770 REM #* Spielgeld - Vorlage u. ##* 
980 REM x** Superspielanzeige ** 


990 "=emsmammenmmmmmeeeeenennnnne 


1004 CLEAR 

1010 spg=6 

1020 PRINT#S," Einsatz bitte..." 

1050 INFUT#4,""sesp 

1040 spg=spgtesp 

1050 FRINT#4 USING Pe 
Fs < 0.3 THEN GGTD 102 

1070 IF Eu > 206 THEN FRINT#5," Nicht soviel „..":FOR i=1 TO 1B0O0:NEXT :50TO 1 

010 x 

1090 CLS#1:C1L5#2: E1583 

1090 IF sups = © THEN PRINT#4A," »=* EINFACHSPIEL ##*" 

1109 IF spg <{ 0.3 THEN GOTD 1020 


ame .. Gempube mik on 


programme 


illO '=ermmzunceme=mme-- nneummmmmeoenooooe 1250 IF trom=2 THEN GOTG 1500 
FREE aa 1260 IF trom=3 THEN GOTO 1330 

. use Bes imaing 1270 LOCATE# ,3,2:PRINT#1 ,sym# 

he une 1280 trixa=zg 

1120 as 1300 LOCATE#2,3,23FRINT#2,sym$ 
Dt 2 i = 

1170 IF 2$=CHR$(238) THEN trom=trom+1:80T0 1360 ac ee EN 

een ne 1330 LOCATE#3,3,2:PRINTH3,sym$ 

= 2 1349 trixc= 

1200 IF zg=1. THEN sym&=CHR$ (277) Fe ee 

1210 IF zg=2 THEN sym$=CHR$ (228) a: 

1220 IF zg=3 THEN symt=CHR$ (229) 1370 IF traom>3 THEN GOTO 1390 

1230 IF zg=4 THEN sym$=CHR$ (226) a 

1240 "##* Ansprung 1+2+53 + > : 1399. : 


1300 SDUND 1,248,20,12 : anzS=anzö+t1l 3 '’#** Spiele-/achler xxx 

1410 FOR i=1 TO 1500:NEXT 

‚1420 PRINT#1,trixa sPRINT#2,trixh 

1430 PRINT#IF,trixc 

1440 Spg=spg-0. 3: PRINT#4 USING "HR #8" sopg 

1450 FOR i=1 TO 2500:NEXT 

1440 (FSEZ2Emsemsomssmeermeceenocemeoone 

1470 REM Treffer - Rbfrage ; 

14890 "SSHm2=szommessomsecmeneo onen 

1470 IF sups >0 THEN sups=sups-1 

1500 PRINTHS,USING " #4"; sups 

1S10 IF trixa = O0 AND trixb = DO AND trixc = CO THEN 60T0 1580: "#*4SUJPER SERIEr«# 
1520 ? 

1530 IF trixa = trixb AND trixb = trixe THEN G0TO 1710 :REM ss Pas CH xx%* 
1540 IF trixa = trisc AND trixb = 0 THEN 1B20:REM xr* Smiley-Ioker #=x* 

13509 ° i 


1560 IF trixa =G AND trixe =0 THEN 5910 1780 :REM + Smiley-Double x##%* 
1570 IF trixb = © THEN 1610 
1580 SOUND 1,20953,30,12 : 

1590 anzV=anzV+1 ı 'x% Verloren #*#* 

1800 GOTG 1080 

15410 IF sups » 0 THEN GOTGO 19009 


1520 SOUND 1,250,50,12:50UND 1,120,50,12: spg=spg+0. 3: PRINT#4 „USING "HHE. #4" jepgs 
BGTO 1080: "#*8Freispielse« 


1530 FFRZSSZSET SS esmsieescorsenumoee 
1540 REM ** Treffer - Bearbeitung *# 
1550 ” FFSSRZEISSTEnmemanmsmeomeecenenn : : 

EEE Fa 15409 IF suns > DO THEN GOTO 1900 
SRFERZERIE 1850 IF trixa = 4 THEN spg=spg+1.B 
1570 BORDER 3,4: sups=20 : 

" „ 1850 IF trixa = 3 THEN spg=spg+1.4 
16590 PRINT#S LISING ##"ssups 1870 IF tri = 2 THEN = +1.2 
1690 PRINT#&A," »** SUPERSERIE x" BE “P9=Spg+1. 

ı 1580 IF trixa = 1 THEN SPpg=spg+1 
1700 GOTO 1900 a 
RE NER nase 1870 GOTD 1920 

1720 BURDER 3, on a ee "I 1900 "===== SUPER-SERIE7/TUSCH===== 
1720 IF sups > 0 THEN GOTO 1900 RS NRERE Pa aan 
17309 IF trixa=4 THEN spg=sspg+3: "#Kreuzs | SP9=Spg 


1740 IF trixa=3 THEN spg=spg+2.8: "*Pikx en nn Ks 
1750 IF trixa=2 THEN spg=spg+2.5: '#Herzx I 1930 ae an en 


R ; 1940 SOUND 1,330,50,12:S0UND 1,390,50,12 

eu = +22 ’aK * ’ ‚Vr ’ | 
en Sa EN SPpren 2 2 2Karaı 1950 SOUND 1,330,50,12:S0UND 1,240,50,12 
1790 IF spus > 0 THEN G0TD 1900 ee Be 
Per a, = | 1590 ’»x AUSWERTUNG #* 
1 82H BORDER 3,45 '====-S5MILEY-JOKER==== B Z000 "==m=aossmenoneemeeennmeen men 


1830 FOR i=1 TO 2000: NEXT 2010 CLS:GOSUB 2180: "===Rahmen=== 





2020 LOCATE 11,3:PEN 23PRINT "AUSWERTUNG" 

=2030 LOCATE 11,4:PEN 35:PRINT STRING$ (19,224) ‚ 5 r 

2040 LOCATE 4,5:PEN 1:5FRINT "1) Anzahl der Spiele Neran: : "yanzE 
20950 LOCATE 4,8:FRINT "2} Anzahl verlorene Spiele :"sanzV 

2080 anzGb=anzS-anzV 


) | Compube mib u: 


Programme 


2070 LUOCATE 4,19: PRINT "33 Anzahl gewonnene Spiele :"janzö 

2080 tot=anz5#0.5 

2090 LOCATE 4,12:PRINT "4 Spieleinsatz total DM: " USING "HH. #4" tot 
2100 LOCATE 4,14: FRINT "53 Guthaben Vorlage DM: " USING "#44. ##"sepng 
zZ110 trfg= (anzß#100) /anzS ; 

2120 LOCATE 4,1&:PRINT "6? Trefferquote in A =" USING " #4. ##"3trtg 
2130 LOCATE 4,19:PEN 2:PRINT "Neuer Spielbeginn. ...--.n. ? En" 

2140 


LOCATE 4,21: PRINT "- Dder das ERIeT BERndeN; . Be 





15,385 


DRAW 


2150 as=INKEYS: IF ag="" THEN 2150 2220 PLOT 15,15 : 


2150 IF a$="n" DR a$="N" THEN RUN 2230 DRAW 625,385 :DRAW 625,15 

2170 IF a$="e" OR at="E" THEN BOTO 2270 2240 DRAW 15,15 | 

2180 ‘======RUUTINE RAHMEN======= 2250 RETURN 

2170 PLOT 8,8 :DRAW 8,392 2260. "=====ENDE===== 

2200 DRAW 632,392 :DRAW 632,8 2270 KEY 138,".":MODE 1:END 
8,8 


2210 DRAW 


S U PE R- Fl LE Eine Dateiverwaltung für den CPC 464 





i - Maximale Datensatzlänge 255 Zeichen 
nanameine  =Freie Eingabemaske - bis zu 20 Felder 
alien. - Maske wird auch beim Ausdrucken eingehalten 
ze auch von Begriifen oder Begrifisteilen, die nicht am Beginn eines Feides 
stehen 
Beschreibung Nach jedem Blatt wartet das Pro- Datei ausdrucken 

der einzelnen gramm auf eine Eingabe: Zu Beginn dieses Programmteiles 
Programmpunkte: DE werden diverse Druckereinstellungen 
löscht letzte Eingabe abgefragt. Das Programm fragt Sie, 
Dalei erstellen STAR ob Sie. die gesamte Datei oder nur 


Dieser Programmpunkt ist in zwei 
Teile gegliedert: 
a) Wahl und Positionierung der Feld- 
bezeichnungen (maximal 20 Felder) 
in einem 80 Zeichen mal 18 Zeilen 
großen Bereich. 
b) Erstellen der Eingabemaske mit 
gleichzeitiger Festlegung der maxi- 
malen Länge der einzelnen Feldein- 
träge. 
Danach wird nach Eingabe der 
‘ Formblatt-Bezeichnung die erstellte 
“ Maske auf Diskette (Kassette) abge- 
speichert und anschließend 
Menue zurückgekehrt. 


Datei eingeben 

In diesem Programmpunkt wird das 
erstellte Formblatt mit Daten gefüllt. 
Das Programm zeigt Ihnen die Ein- 
gabemaske und fordert Sie dann auf, 
an den festgelegten Stellen Daten 
einzugeben. Mit <ENTER> kön- 
nen Sie Eingabestellen überspringen. 
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ins - 


zurück ins Menue 
<zandere Taste> 
nächstes Blatt 


Pau ur a a a Ga er Br Be er a 


- Datei pflegen 


Dieser Programmiteil dient dem Än- 
dern bereits eingegebener Daten. 
Das Programm fragt, bei welchem 
Datensatz Sie mit dem Biättern be- 
ginnen möchten und ermöglicht da- 
mit Änderungen ohne zeitraubendes 
Blättern. Sobald Sie beim entspre- 
chenden Datensatz angelangt sind, 
drücken Sie <DEL>, worauf am 
Beginn des ersten Feldes ein Cursor 
erscheint. Durch Druck auf <EN- 
TER> bewegt sich der Cursor um 
ein Feld weiter. Sind in einem Feld 
Änderungen notwendig, drücken Sie 
nochmals <DEL>, worauf der 
Feldinhalt gelöscht wird und Sie ei- 
nen neuen eingeben können. 
<TAB>: am Ende eines Blattes 
bringt Sie zurück ins Menue. 


Gempure mik 


einzelne Datensätze ausdrucken 
möchten. Beim Gesamtausdruck 
werden nacheinander die Datensätze 
auf Bildschirm und Drucker ausgege- 
ben. Beim Ausdrucken einzelner Da- 


tensätze erscheinen ebenfalls die Da- 


tensätze nacheinander auf dem Bild- 
schirm und das Programm fragt, ob 
Sie diesen Datensatz ausdrucken 
möchten. 


Datei sortieren 
Das Programm fragt Sie, nach wel- 
chem Feld und ob numerisch oder 
alphabetisch sortiert werden soll. 
Nach erfolgtem Sortiervorgang kehrt 
das Programm automatisch ins 
Menue zurück. ; 


Datei abspeichern 

Dieser Programmteil gibt die einge- 
gebenen Daten nach Eingabe eines 
Dateinamens auf Diskette (Kassette) 
aus. 


49 


‚Programme 


Datei laden 

“in diesem Programmteil werden die 
Maske und die Daten nach Eingabe 
der jeweiligen Bezeichnung von Dis- 
kette (Kassette) geladen. 


Suchen 

Das Programm verlangt nach Einga- 
be des zu suchenden Begriffes. Nach 
erfolgreicher Suche wird der entspre- 
chende Datensatz auf dem Bild- 
schirm ausgegeben und gefragt, ob 
nach diesem Begriff noch in anderen 
Datensätzen gesucht. werden soll. 
Soll nicht mehr weitergesucht werden 
oder verlief die Suche negativ, wird 
gefragt, ob noch ein Begriff gesucht 
werden soll. Ist dies nicht der Fall, 


error [Co 
TREHEHNTHE 
EEE 


RHEIN 
HRHFRTRENK 


DEFINT a-z 


120 
150 
340 
150 


EOSUB 3020 
ON ERROR GOTO 3210 
DIM 0(20) ‚ut20) 


kehrt das Programm ins Menue zu- 
rück. 

Löschen 

Es besteht die Möglichkeit, die Ge- 
samtdatei oder nur einzelne Daten- 
sätze zu löschen. Beim Löschen der 
Gesamtdatei wird aus Sicherheits- 
gründen nochmais gefragt, ob die 
Datei wirklich gelöscht werden soll. 
Zum Löschen eines einzelnen Daten- 
Satzes ist die Eingabe seiner Num- 
mer erforderlich. Durch Eingabe von 
<NICHTS>, 
ODER <ENDE> kehrt das Pro- 
gramm ins Menue zurück, Nach je- 
dem Löschen eines Datensatzes fragt 
das Programm, ob noch ein weiterer 
zu löschen ist, Wenn nicht, kehrt das 


EUF ER - FF 
17085 
KNOG FF 


"ON ERROR G60T0 3200: MEMORY %A100 
OFENDUT "Dummy" : MEMORY HIMEM-1:CLOSEDBUT: ’#* Puffer fur 1/0 %## 


ERKENNEN Hauptmenue FRREHRKIRHNHNKEREN 


<KEINEN> 


by 


Programm ins Menue zurück. 


Programmspezifische Hinweise: 
Benutzer des Datacorders müssen 
den Text in den: Zeilen 930, 2250, 
2370 und 2470 ändern. Außerdem : 
können Sie den Filenametest in den 3 
Zeilen 3530 bis 3620 und die Zeilen i 
950, 2270, 2390 und 2490 weglas- : 
sen. 
Benutzer eines anderen als des Pa- 
nasonic KX-P1090-Druckers müs- 
sen die Steuersequenzen in den Zei- 
len 1540 bis 1780 ändern oder gege- 
benenfalls weglassen. Auf. die Aus- 
wirkungen der einzelnen Sequenzen 
ist im Programm durch REM-Zeilen 
hingewiesen. 


Y KRRRRRUNKNFNTRTTHTR HR HH UNI THINK HH HT HH NER IT HET HH RIFF 
4 6 4 
COPYRIGHT 
MARTIN 
R FERRHKHENKHTTEFFEHHNT TH HH TI HT HN N RT NN NT HIT NIKI NN IH IH HT N II HN HN N NH HR 


IL E ana erare 
KRRRRERRRTR 
P KHHKRRKHINE 


KRERKKAREITER 
KERARHATERE 


E FREENET KREIEREN FETT RNIT NIEREN 


- 150 MODE 2:INK 1,24:INK 0,0:PEN 1:PAPER 0: BORDER ‘0 
170 LOCATE 1,3: PRINT" CE Fr oQc 46 4 
I E# 
180 LOCATE 


Vs arze't 


LOCATE 1,5: PRINT" 

KNOPP" 
LOCATE 1,84PRINT" HR U 
LCCATE 20,12:FRINT"DATEI erstellen es 
LOCATE 20,13:FRINT"DATEI eingeben 
LOCATE 20,14:PRINT"DATEI pflegen 
LOCATE 209,15: FRINT"DATEI ausdrucken. 
LOCATE 20,16:PRINT"DATEI sortieren 
LOCATE 209,17: PRINT"DATEI abspeichern 
LOEATE 20,18=:PRINT"DATEI laden 
LOCATE 20,19: PRINT" suchen 
LOCATE 20,20: FRINT" Ineschen 
LOCATE 30,23=2PRINT"Ihrre WAHL bitte:"; 

510 wahl$=INkEY$: IF wahl$="" THEN 310 

a wahl>=1 AND wahl{10 THEN LDCATE 52,235: PRINT wahl ELSE GOT 

ne a et) 550,1020,1250,1530,1740,2230,,2350 „2570, 2840: ’** Verzweignung ** 

350 "wesent DATEI erstellen KenKkrzıreE% 

Ss&0 MODE 2 

370 LBECATE 4,10: PRINT CHR& (24);" Wollen Sie wirklich eine neue Datei erstellen ( 
| Die Alte wird geloescht) ?" 

390 wahl$=INKEYF:IF wahlf="" THEN 380 

=70 IF UPFERF(wahl$)="J" THEN 400 ELSE 140 

490 CLEAR=MODE 2 

410 WINDOW 1,90,1,7 


1,4: FRINT" 


"SCHRE(1AAI :" 1955 by Martin 


FTMEN DU E 


rrıı3 
SONS DO BGN 
1 


50 GSompuhe mi dr 





MEERE Em ee © ©. 


programme 


420 FRINT "Sie koennen den Cursor frei ueber den Bildschirm bewegen und an der 5 
telle, an der Sie wollen, eine Feldbezeichnung eing 

eben. Es sind bis zu 20 Bezeichnungen zulaessig. LDELI Insscht die zuletzt eing 

egebene Bezeichnung. [TABJI fuehrt Sie" 

450 PRINT"zum naechsten Frogrammteil!" 

440 WINDOW 1,80,8,24:PEN O:PAFER 1:CLS:WINDOW 1,90,8,25 

450 DIM mx (20) ‚my (20) 

460 DIM bezeichnungf# (20) 

370 x=i:y=l 

480 LOCATE y,x:2PRINT EHR$ (22) 5; CHRS (1) 5" _"SCHRF (ZZI SCCHRE (O0) 

490 a#=INKEY#:1IF as="" THEN 490 

S00 LOCATE y}x:PRINT CHRF (223; CHRE (1); ; EHRE (24) 5" _"SCHRFLZII SCHRE# (22) ; EHRE (O0) 

510 IF a$=CHR#(240) THEN x=x- 1: GOTO S80 

520 IF a$=CHR#1{241) THEN x=x+1:560T0 580 

330 IF a$=CHR$ (242) THEN y=y-1:60T0 580 

5sa0 IF a#sCHR#+ (72455 THEN y-y+1:6010 580 

S30 IF ag=CHRF(127I AND t>=1 THEN t=t-1:WINDOW 1,80,8,24:CL5:FOR i=i TO t3LOCATE 
myti),mzti)zFRINT bezeichnung#ti}=NEXT:WINDOW 1,50, 

8,25:60T0 580 

540 IF a$=CHRE (9) THEN IF t>=1 THEN 570 ELSE WINDOW 1,80,1,7:FAPER O=:PEN 1:LOCAT 
E 1,7:PRINT"Zu wenig Felder'":WINDOW 1,80,8,25:FAPER 
iz PEN Ssaf= " 

570 IF ASCtaF)>47 AND ASCtasr)<i12& THEN GOSUB 830 

s80 IF x<i THEN «=1 

590 IF x>17 THEN x=17 

00 IF yZ1l THEN IF x>1 THEN x=x-1:y=-80 ELSE x=1:y=BO 

410 IF y>80 THEN IF x<17? THEN x=xtlsy=1 ELSE x=17ıy=1 

&20 GOTO 450 

830 IF t<20 THEN t=t+12mg (t)=xsmytt)=y ELSE 570 

40 LOCATE y,x:PRINT a$sıLINE INPUT "",b# 

850 bezeichnungf® tt}=af+br 

660 RETURN 

67C MODE Z:WINDOW 1,80,1,7:PEN 1:FAFER 0 

450 FPRINT"Sie osanen den Cursor am Bildschirm frei bewegen. An den Stellen, an 
denen Siespaeter die Daten eingeben wollen, druecke 

n Sie TENTER]l. Bringen Sie dann denCursor an jene Stelle, an welcher der jewe 
ilige Text laengstens enden sall. Das"; 

&90 PRINF"Programn fordert Sie spaeter auf, zwischen diesen Stellen Daten einzug 
eben. [DELIloescht die letzte Eingabe, mit [TAB] verl 

assen Sie diesen Programmteil!" 

700 WINDOW 1,80,8,24:FEN O:PAPER 1:C1L8:FOR i=1 TO teLOCATE myli),mxti):PRINT bez 
eichnung# ti) =NEXT:WINDOW 1,90,8,25 i 

710 DIM ax (20) ,ay (20) 

720 x=lıy=1 

730 LOCATE y,x:PRINT CHRE (22); CHRE {133 "_"SCHRE (22) HCHRE (0) 

740 a#=INKEY£ıIF af="" THEN 740 

750 LOCATE y,x=PRINT CHREF (223; CHR&S (LI ZEHRE (24 4" _"S CCHRE (24) I CHRE (72) sCCHRE (0) 

766 IF as=CHR$ (240) THEN x=x-1:6070 830 

776 IF a®=CHRF(241} .THEN »x=x+1:60T0 830 

790 IF a®=CHR# (242) THEN y=y-1:60T0 830 

790 IF a&=CHR$ (245) THEN y=y+1:560T0 BZ0O 

800 IF a$=CHR$(127) AND s>=1 THEN s=s-1:WINDOW 1,80,8,24:L0OCATE ay(s+tl) ‚ax (st1): 

FRINT ee FEN OeFAPER 1:WINDOW 1, 8 

0,8,25:60T0 8% 

B10 IF ne AND s>=1 AND anf=0 THEN hfelder=s:50T0 880 

820 IF a$=CHR#(15) AND s<20 THEN IF anf THEN IF ax(s)<{>x THEN 530 ELSE LOCATE y, 

»:PRINT">":laengetis’=y-ay{s}sanf=0 ELSE LOCATE y,x:P | 
RINT"<'"zesstliar {s’=gsay(s)=yranf=il ; 

850 IF «71 THEN x=1 

840 IF x>1B THEN x=18 

850 IF y<i THEN IF x>1 THEN x=x-1:y=80 ELSE x=1:y=80 

850 IF y>BO THEN IF x<i18 THEN x=x+1:y=1 ELSE x=18:yal = 

870 GOfTG 730 

880 FOR i=1 TO hfelder:laengerlaenge+tlaengeti):NEXT:IF laenge>755 THEN ELS:LOCAT 
E 10,5: PRINT"Datensatz zu lang'"sERASE ax „äy,laenge: 

GOTD 570 


B70 laenge=0:FOR felder=1 TO nfelder: a 
der}2NEXT 


1185 Sompute mi oh 
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Programme 


900 hdat=1F7000\1aenge N 

719 ELSSLOCATE 5,5:FRINT"Ihre Datei ist mnit"shdat; "Datensaetzen dimemsiüniert!" 
920 ** Formblatt abspeichern ** ö 

7390 LOEATE 39,7:PRINT"Legen Sie die Diskette ein, auf der das Formblatt abgespeic 
hert werden soll!" 

?40 LOGATE 5,9:LINE INPUT "Wie soll das Formblatt heissen? "snamer 

750 GOSUB 3530 

950 IF NOT richtig THEN CLS:GOTO 930 

770 GPENDUT name# 

980 WRITE #9,hfelder ‚t:FÜR felder=1 TO hfelder:WRITE #9,ax (felder) ‚ayifelder),an 
fifelder) ,„laenge (felder} :NEXT 

790 FOR i=1 TOD t:WRITE #9 ,,m« ti) „myti) ‚bezeichnung#{i):=NEXT 

1000. ELOSEOUT 

30106 G0TO 150 

1020 "eHnaerr DATEI eingeben Kran 

1030 MODE 2 

1040 WINDOR 1,80,1,7:PEN i:FAFER © 


41050 FRINT"Sie koennen das erstellte Formblatt nun mit Daten fuellen. Das Frog: 


ramm zeigt Ihnen an den Stellen, wa es Daten erwart 
et, einen Cursor. Falls Sie an dieser Stelle keine Daten eingeben wollen, drue 
cken Sie [ENTER]." - 
1050 PRINT"Nach jedem Blatt wartet das Programm auf eine Eingabes Mit I[DELI k 
nennen Sie dieses Blatt nochmals neu eingeben, mit [ 
TAB] verlassen sie diesen Programmteil,mit allen anderen Tasten kommen Sie zum n 
sechsten Blatt!" 5 
1575 WINDOW 1,90,8,Z4: PEN O:FAPER 1:CL5 
1080 datensaetze=0 j 
1090 datensaetze=datensaetze+1 i 
1100 IF datensaetze>=hdat THEN WINDOW 1,80,1,7:PAPER Ö:FEN 1:CLS:LOCATE 10,3:PRI 
NT"Dateigraoesse erreicht!"ıFOR i=1 TO 2000:NEXT:GOTO 
150 i 
1110 WINDOW 1,80,25,25: PAPER 0: PEN 1:FRINT"Datensatznummer : "sdatensaetze: WINDW 
1,80,8,24: PAPER i:PEN O 
1120 IF inhalt$ (datensaetze}<>SPACES (LEN (inhalt (datensaetze))) THEN 1090: '** Da 
tensatz leer”? nein -> naechster #* - 
11306 inhalt$(datensaetze}="" 
1140 FOR i=1 TD t 
1150 LOCATE myti),mx ti): PRINT bezeichnungf(i) 
11A0 NEXT 
1170 FOR felder=1 TOD hfelder 
1180 LOCATE aytfelder) „ax ({felder): LINE INPUT "" ‚inhalt 
1190 inhalt$=inhalt$+5PACE$ (Laenge (Felder) )sinhalt$=LEFT$tinhalt$,laenge (felder) 
} A 
1200 inhalt$ (datensaetze)=inhalt$ (datensaetze}+inhalts 
1210 NEXT 
1220 a$=INKEY$:IF af="" THEN 1220 
1250 IF a$=CHR£(9) THEN IF datensaetze>hdatensaetze THEN hdatensaetze=datensaetz 
e:60TN 150 ELSE 150 
1240 IF a&=CHRE (127) THEN FOR felder=1 TO hfeldersinhaltf (datensaetze,felder)="" 
:NEXT:datensaetze=datensaetze-2:CLS:60T0 10690 
1250 CLS:G0T0 1090 
1260 "set DATEI pflegen zunneenennenene 
1270 MODE 2 
1260 WINDOW 1,80,1,7:PEN 1:PAPER © 
1290 PRINT"Wenn auf dem gezeigten Blatt eine fenderung notwendig ist, druecken 
Sie [DELI.Durch Druecken von LENTERI wird der Lurso 
r zum entsprechenden Feld gefuehrt „danndruecken Sie nochmals £DELI. Der bisher 
ige Text des Feldes wird gelosscht und"; 
1300 PRINT"Sie koennen den neuen Text. eingeben.Mit [TABJI verlassen Sie diesen Pr 
ogrammteil,mit jeder anderen Taste kommen Sie zum na 
echsten Blatt !* 
1510 WINDOW 1,50,8,24:PEN O:FAPER 1:CLS 3 
1326 LOCATE 1,5: INPUT "Bei welchem Datensatz wollen Sie starten";start 


1550 IF start>hdatensaetze THEN LOCATE 1,7:FRINT"Ich glaube, das ist falsch!":Fo 
R i=1 TO 2000:NEXT 


1340 GLS 
1550 FOR datensastze=start TOD hdatensaetze:tL8 
13&0 WINDOW 1,00,25,25: FAPER O:PEN 1:PRINT"Datensatznummer : "ıdatensaetze: WINDOW 
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hardware 


‚Schneider Diskettenlaufwerke 
„DDI-1“ und „FD-1“ 





Für eine komfortable Verarbeitung 
und Speicherung umfangreicher Da- 
tenmengen erweitert Schneider die 
Produktpalette mit dem „Disc Drive 
& Interface* (DDI-1). und dem 
„Floppy Disc“-Laufwerk (FD-t). Au- 
: Ber dem eigentlichen Laufwerk gehört 
| zum Lieferumfang des „DDI-1* eine 
: System-Diskette mit dem Betriebs- 
' system GP/M (Version 2.2) und der 
 Programmiersprache Dr. LOGO, ein 

ausführliches Benutzerhandbuch so- 
wie das Anschlußkabel mit Interface 
 (ROM-Erweiterung). Diese Steuer- 

einheit verwaltet gleichzeitig das als 
. zweites Laufwerk anschließbare „FD- 
ir 


Schnell 

Die Datenübertragungsrate ist mit 

. 250.000 bits/sec enorm hoch. Ein 
umfangreiches Programm von 20 
KBytes wird z. B. in ca. 5 Sekunden 

in den Arbeitsspeicher des „GPC* 

geladen. 


Klein 
Das formschöne Gehäuse beinhaltet 
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das äußerst kompakte 3"-Laufwerk 
und das zugehörige Netzteil. Der 
Platzbedarf wird äußerst gering ge- 
halten. 


Groß 

Dem Benutzer stehen auf einer Dis- 
kettenseite 180 KByte formatierte 
Speicherkapazität zur Verfügung. 
Das entspricht ungefähr 60 DIN- 
A 4-Schreibmaschinenseiten. 


Erweiterbar 
Sollte die Kapazität eines Laufwerkes 


nicht ausreichen, so kann - ohne. 


zusätzliche Kabelverbindung - ein 
zweites Laufwerk (FD-1) angeschlos- 


| sen werden. Das „FD-1“ verfügt über 


die gleichen Leistungsmerkmale wie 
das „DDI-I*, 


Mehrsprachig 

Nicht nur BASIC- oder in der Spra- 
che Dr. LOGO geschriebene Pro- 
gramme, sondern auch Programme, 
die unter dem Betriebssystem GP/M 
{Version 2.2) geschrieben sind, kön- 
nen mit Hilfe des. Laufwerkes ausge- 
führt werden. 
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Mehrformatig 

Je nach Einsatzgebiet können die 
Disketten im DATA-Format, System- 
format (mit CP/M-Spur) oder IBM- 
Format formatiert werden. 


informativ 

Im Lieferumfang des „DD1-1" ist ein 
über 100 Seiten starkes Benutzer- 
handbuch mit ausführlichen Informa- 
tionen zu CP/M und Dr. LOGO 
enthalten. 

Übrigens: Dr. LOGO wurde 1984 zur 
Software des Jahres gewählt. 


Die Schneider 
Diskette „CF2“ 








Die Schneider Diskette „CF2“ istein 
kompaktes Speichermedium im 3”- 
Format (8 x 10 cm). Sie kann auf 
beiden Seiten beschrieben werden 
und bietet somit -Speicherkapazität 
von insgesamt mehr als 360 000 Zei- 
chen. 


Die robuste Plastikhülle schützt Ihre 
Daten auf optimale Weise. Der 
Schreib-Lese-Ausschnitt wird durch 
eine Schutzklappe gesichert, die 
beim Einlegen der Diskette automa- 
tisch zurückgeschoben wird. Ein ein- 
fach zu bedienender Mechanismus 
ermöglicht das Ein- und Ausschalten 
des Schreibschutzes. 


hardware 


Erfahrungsbericht über den 
Schneider Matrix-Printer „NLQ 401“ 


In unserer letzten Ausgabe haben wir 
den Schneider  Matrix-Printer 
„NLQ 401° mit allen technischen 
Einzelheiten vorgestellt und verspro- 
chen, einen Erfahrungsbericht über 
dieses Hardware-Zubehörteil: zum 
Schneider GPC-464 zu veröffentli- 
chen. 


Unsere Programmierabteilung hatte 
die Möglichkeit, diesen Printer etwas 
genauer unter die Lupe zu nehmen 
und seine Einsatzmöglichkeiten mit 
anderen Druckern zu vergleichen. 


Dieser neue elektronische Matrix- 


- drucker ist gegenüber seinen Konkur- 


renten sehr klein und kompakt ausge- 
iegt. Das beiliegende 70seitige Be- 


. nutzerhandbuch ist vorbildlich aufge- 
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baut und, was besonders positiv auf- 
gefallen ist, in Deutsch verfaßt. Dies 
ist bei dem günstigen Preis-/Lei- 
stungsverhältnis nicht immer der Fall 
und sollte deshalb vielleicht von an- 
deren Herstellern bei deren Entwick- 
lung von Druckern berücksichtigt 
werden. 


Nach eingehender Untersuchung des 
kompakten Plastikgehäuses und dem 
Innenleben des NLQ 401 fiel uns die 
Ahnlichkeit dieses Produktes mit dem 
Brother M-1009-Drucker auf. Beide 
Drucker sind baugleich und unter- 
scheiden sich iediglich durch die Ge- 
häusefarbe. Die Solidität des Pro- 
duktes kann man durchaus als zufrie- 
denstellend ‘bezeichnen. Das An- 
schlußkabel erscheint uns jedoch mit 
60 cm etwas kurz geraten zu sein. Der 
Drucker muß auf Grund dieser Tatsa- 
che direkt neben dem Rechner pla- 
ziert werden und engt somit die Be- 
weglichkeit des Systemausbaus er- 
heblich ein. 


Die manuellen Bedienungselemente 


liegen mehr oder ‚weniger an den 
üblichen Stelien, so daß die Bedie- 
nung des Druckers.nicht einer Um- 


gewöhnung bedarf. Die Tasten „ON 
LINE* und „LINE FEED* haben 
sich inzwischen wahl zu Standardta- 
sten entwickelt und werden von einer 
Vielzahl von Herstellern in dieser 
Form berücksichtigt. Die Bedienung 
der kostengünstigen Folientaster er- 
folgte während des Einsatzes des 
Gerätes problemlos, ist aber für die 
Lebensdauer der Betriebstasten nicht 


von Vorteil. Hier hätte man vielleicht. 


auf die Drucktasten zurückgreifen 
sollen. Interessant ist, daß der 
NLA 401 mit einem Friktionsantrieb 
ausgestattet ist, was in dieser Preis- 
lage nicht als Selbstverständiichkeit 


angesehen werden kann. Auf diese | 


Weise kann man fast alle marktübli- 
chen Papierarten verwenden. Beson- 
ders gut eignet sich diese Antriebs- 
möglichkeit auch zum Bedrucken von 
einzelnen Blattvorlagen. Das Ein- 
spannen von einzelnen Papierbögen 
und Rollenpapier erfolgt vollkommen 


problemlos und geht sehr schnell. Im 
Gegensatz zu vielen anderen Produk- 
ten muß der NLQ 401 zum Einlegen 
des Papiers nämlich ‚nicht geöffnet 
werden. Lediglich. beim Verarbeiten 
von Faltpapier wies der Printer einige 
Schwierigkeiten auf, Jedesmal wenn 
der Druckknopf über eine Perforie- 
rung fuhr, hinterließ er einen schwar- 
zen Rand auf dem Druckpapier. 

Als besonders lobenswert ist das her- 
vorragende Schriftbild dieses 
Druckers zu erwähnen. Im Doppel- 
Fett-Modus ist der Druck mit dem 
NLQ 401 noch stärker und klarer zu 
erkennen, als bei einem EPSON- 
Drucker. Dieser Hersteller hat bei- 
den Insidern der Datenverarbeitung 
einen guten Ruf und steht mit seinen 
Leistungen hoch im Kurs. Somit ist 
es also schon erstaunlich, daß der 
Matrix-Printer von Schneider einen 
Vergleich mit den Produkten der Fir- 
ma EPSON nicht scheuen muß. 


Druckbild Epson-Drucker: 


Das ist die Normal-Schrift 
Zeile hervorgehoben 


Das 
Schrift. 


ist BDreit— 


Das ist Schmal-Schrift 


Doppel -Druck 


Druckbild Schneider NLQ 401: 


Das ist Jie 


Normal-Schrift 


Zeile hervorgehoben 


Das | 
Schriırt 
Das 
Doppel-Druck 


i>t Brei t— 


ist Schmal-Schrift. 


Zum besseren Vergleich der beiden Schriftarten wurden die Druckbilder Inge 


Listings etwas vergrößert. 


Compuhe mib 
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Programme 


1,80,8,24:FAPER 1:PEN 0 

1378 FOR i=1 TO t 

1580 LOTATE mytii},me (id: PRINT bezeichnung® (i) 

1370 NEXT 

1400 GOSUB 3410 

1410 a#=INKEY$:IF a$="" THEN 1410 

1420 IF a#=CHR#&(9} THEN 150 

1430 IF a#=CHR$(177) THEN GOSUB 1450 

1440 NEXT 

1450 GOTO 150 

1440 FOR felder=1 TO hfeilder 

1470 LOCATE aytfelder)-1,ax {felder}:PRINT CHR# (143) 
1450 a#=INEEY$: IF a$="" THEN 1480 

1490 LOCATE aytfelder)-1,ax (felder) PRINT " " 

1500 IF af=CEHRE{127) THEN LOCATE ayttelder) „ax (feilder}:FRINT SPACEF (laengeifelde 
r}}sinhalt$=SPACE$ (laenge (felder}):LOCATE ay{tfelder) 


„ax (felder)»LINE INPUT "" ,inhalt#:f=felder:569SUE 3480: felder=f 
15109 NEXT 


1520 RETURN 


IiSTO sie DATEI ausdrucken KAHRHHRHH% 

1540 FRINT#8,CHR£ 127) +CHRE (64): '%% ruecksetzen ** 

15509 FRINT#EB „CHR& (Z7I +CHRS (687) +CHR& (OI +CHRE (ID a ar Fapierlaenge ## 

15540 FRINT#B, CHRE (27) +CHRE& (78) +CHR£ (123: '#** Perforation veberspringen # 


1570 CLS:LDOCATE 27,7: PRINT"Elite ra 
1580 LDEATE 77,9: PRINT"Fica en 

1590 LOGATE 23,137 PRINT"Ihre WAHL bitter" 
1500 wahl#=INKEY$: IF wahl#="" THEN 1600 


1810 IF wahl&="1" THEN PRINT#8,CHR$ 127) +CHR& (BO) +HCHRE 10): 50TO 1540; "** Elite #* 


1620 IF wahl$="2" THEN FRINTSS,CHR& (27) +CHR& BO) +CHRE (1): 5OTO 1640: '#* Pica #* 
16850 GOTO 1500 \ 


1640 CLS 

1650 LOCATE 27,7:PRINT"Schoenschrift - 1 -" 
1660 LOCATE 27,9:PRINT"Normalschrift - 2 -" 
1670 LOCATE 27,15:PRINT"Ihre WAHL bitter" 
1680 wahl$=INKEY£: IF wahl$e"" THEN 1680 


1690 IF wahl$#="1" THEN PRINT#8,CHRS (27) +CHRE (49) : 5010 1720: "xx Schnenschrift #* 


1700 IF wahls="2" THEN FRINT#B,CHRE (27) +CHR& (70) :G0OTO 1770: '#=* Normalschrift ** 
1710 GBTG 1480 


1720 CLS 

1750 LOEATE 20,7: FRINT"Zeilenvorschub 1/8 Zoll a N 
1740 LOCATE: 20,9: FRINT"Zeilenvorschub 1/8 Zoll en 
1750 LOCATE 25,13:PRINT"Ihe WAHL bitte;" 

1760 wahl#=INKEYF: IF wahlf="" THEN 1740 

1770 IF wahl&="1" THEN PRINT#B,CHR& (77) +CHR& (49) :GOTDO 1800: ’** 1/8 Zall ** 

1780 IF wahl#="2" THEM PRINT#8,CHRE (?7)+CHREISO) :GOTO 1900: a8 1/6 Zoll “r 
1790 GDTD 1760 ; 

1800 ELS:LDCATE 5,7:PRINT"Wollen Sie alles ausdrucken {J/N)" 

31810 wanl&=INKEYS: IF wahl&="" THEN 1810 

iB2Z0 IF UPFPERFtwahl#}="1" THEN flag=-1:G60T0 18403 '*#+ Flag fuer alles setzen ##+ 
i830 fFlayg=0 h 5 

1840 WINDOW 1,80,7,25:PEN O:FAPER 1:FOR datensaetze=i1 TO hidatensaetze:lis 

1550 IF inhalt$(datensaetze)="" OR inhalt! tdatensaetre)=EPACEE (LEN tinhaltf# (daten 
saetze})) THEN 19720 

15850 FOR o=1 TOD L:LOCATE my{ia)ysmk (o):FRINT bezeichnrung® (0) :NEXT 

1870 GOSUR 3410 - 

1886 IF NOT flag THEN LOCATE 5,18:FRINT"Wollen Sie diesen Datensaetz ausdrucken? 
" ELSE 1910: '** Wenn nicht alles, dann Frage *#* 

1570 wahl$#=INKEYS:IF wahls="" THEN 1870 2 
1900 IF URPER& (wahl&}="J" THEN LOCATE S,18: PRINT SPACE (70):CALL RALOO:GOTO 1920 
ELSE 1720 

19710 CALL »A100: '## Hardcopy #*# 

1920 NEXT S 

1930 GDTD 150 z 

19740 "Runner sortieren FRSHHKRKEENNKER 

1750 MODE 2 


1980 IF (ayti)=0 AND aythfelder)=0) OR tinhalt£ti)="" AND inhalt# (hidatensaetze}= 
"" AND inhalt#{INT(hdatensaetzre/7}}="") THEN LOCATE 
10,105 PRINT CHRE{Z24) 5" Keine Datei vorhanden! ";CHRE (24): FOR 


Er | Compute mi | iR 





Programme 
i=1 TO 3000: NEXT:GOTO 150 


1979 LOCATE 1,105 INPUT"Nummer des Feldes, nachdem sortiert werden soll";sfelder 
1790 IF sfelder’hfelder THEN sfelder=hfelder 


1770 CLS i 

2000 LGCATE 20,8: PRINT"Nummerisch sortieren ra 

2010 LOCATE 20 ,12:FRINT"Alphabetisch sörtieren - 2 -" 

2020 LOCATE 30,18:PRINT"IHe WAHL bitter" 

2030 wahi#=INKEYF:IF wahls=e"" THEM 7030 

206406 ELSSLDOCATE 10,12:PRINTTIHRE DATEI WIRD SORTIERT! 
LOCATE 10,15: FRINT" BITTE W 


A, ee 


20509 IF wahlf="1" THEN 3220: '## rummerisch sartieren *#* 

2040 datensaetze=0 

2070 s=l:0o(l)=1l:ullj=hdatensaetze 

2080 l=0 ls} ır=u(s)ss=s-i1 j 

20970 datensaetze=i: jer:n$=MID$ (inhalt$(i1+r) 72) ‚anf (sfelder)+1,laenge (sfelder)) 

2100 WHILE MID$ (inhalt$ (datensaetze} ‚anf (sfelder)+1,laengse {sfeider})<h# AND date 

nsaetzeir:datensaetze=datensaetze+ti:WEND x 

2110 WHILE MID$tinhalt#(j) „anf (sfelder)+1,laenge (sfelder})>h$ AND j>l:j=j-l:sWEND 

2120 IF datensaetzei=j THEN inhalt$=inhalt$ (datensaetze):inhalt$idatensaetze)=in 

halt#tj}zinhalt#tj}=inhalt* ELSE 2140 : 

2130 datensaetze=datensartze+l: j=j-1 

=140 IF datensaetzei=j THEN 7100 

2150 IF r-datensaetzei=j-1 THEN 2180 

21680 IF 1<j THEN s=ssti:ots)=lsu(ls’=sj 

2176 1=datensaetze: 5010 7700 

21989 IF datensaetzeir THEN s=s+t1:0o(s) =datensaetze:suls)er 

Z190 r=j 

2200 IF r>1l THEN 20970 

2210 IF s>ÖO THEN 7080 

2220 GOTO 150 

2230 "RR DATEI abspeichern #eananerr 

2240 MODE 2 

2250 LOCATE 5,7:PRINT"Legen sie die Diskette ein, auf der die Datei abgespeicher 

t werden soll!" 

22509 LOCATE 5,9=LINE INFUT "Wie soll die Datei heissen” "snamer 

2270 GOSUB 3530 

#286 IF NOT richtig THEN 27240 

2290 OPENDUT namef 

2300 WRITE #7,hdatensaetze:FÜR datensaetze=1 TO hdatensaetze 

2310 WRITE #7 ,inhalt# (datensaetze) 

2320 NEXT ; 

23350 CLOSEGUT 

340 5010 150 

2350 Here DATEI laden SRH Hr 

340 CLEAR=:MODE > 

#370 LOCATE 5,7:PRINT"Legen Sie die Diskette ein, auf der das Formblatt abgespei 

chert wurde!" 

2390 LOCATE 5,F:LINE INPUT "Wie heisst das Formblatt? "ınamet 

23970 GOSUB 3530 Ä 

2400 IF NOT richtig THEN 2360 

2410 OFENIN name# 

2420 INFUT #9,hfelder ,tsFÜR felder=1 TO hfeider: INPUT #9,ax (Felder) ‚aytfelder),a 

nf ifelder) ‚„laenge {felder} NEXT 

2430 FOR i=1 TO t: INPUT #7 mx {id ,myli),bezeichnung# ti): NEXT 

2430 ELOSEIN ° 

2450 laenge=0:FÜR felder=-1 TO hreider : laenge=1 aenge+tl aerııge (Felder): NEXT 

2450 hdat=19000\1aenge:ı DIM inhalt#t19006/laenge} :ELS: LOCATE 5,5: PRINT"Ihre Datei 
ist mit";hdat; "Datensaetzen dimensioniert!" 


2470 LOCATE S,75PRINT"Legen sie die Diskette ein, auf der die Datei abgespeicher 
t ist!" 


r 


2480 LOCATE 5,F7:LINE INFUT "Wie heisst die Datei? "ınamet 
2490 SOSURB 253 i 

2300 IF NOT richtig THEN CLS-650T0 2470 

2510 DFENIN names 


#320 INFUT #9 hdatensaetze: FOR datensaetze=i TOD hdatensastze 
2930 INPUT #7 ,inhalt# (datensaetze) 
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FEAR 


ee a mes 


programme 


25340 
2350 
2350 
2570 
2580 
2570 
2a0o 
2810 
2620 
2630 
zZa40 


EN 1: 
1,80, 


2u50 
2650 
2670 
2680 
2670 
2700 
2710 
270 


NEXT 

ELOSEIN 

GOTU 150 _ 

u 0 2 202727202 2 EU EUR EURE Suchen RK HNEK 

MODE 2 

LOCATE 5,5: INPUT "Wie heisst der zu suchende Begriff"sbegriffs 
WINDOW 1,80,8,25=PAPER 1:PEN O0 

CS 

FOR i=1 TO t:LOCATE mytidamz (i}sPRINT bezeichnungt(i):2NEXT 

FOR datensaetze=1 TO hlatensaetze 

IF INSTR {inhalt$(datensaetze) ‚begriff£&)2>0 THEN WINDOW 1,80,25,25:FAPER O:P 
ELS:PRINT"Datensatznummer : ";datensaetzesWINDEW 

8,24:PAPER 1:PEN 0:G0SUB 3410 ELSE 2710 

WINDOW 1,80,1,7:PAPER O:PEN 12ELS:LOCATE 10,3:PRINT"Weitersuchen”" 
nahlF=INKEYF: IF wahlge"" THEN 2440 

iF UÜPFER& twahl&)="J" THEN WINDOR 1,80,8,25: FAPER 1:PEN 0:60T0 2710 
LOCATE 10,5:FRINT"Noch einen Begriff suchen?" 

wahi#=INKEY$: IF wahlt="" THEN 2490 

IF UPPERE (wahl#)="J" THEN 2580 ELSE 150 

NEXT 


WINDOW 1,80,1,7:FAPER O:PEN 1:C1S:LOCATE S,8:FRINT"Diesen Begriff kenne ich 


nicht !"zd=FRE(""):FOR wartesi TO 3000: NEXT:ULS:GOTO 
2690 i 


2730 
Z740 
2750 
27&0 
2776 
2780 
2790 
2800 
2810 


WINDOW 1,80,8, 24:3 PAPER 14PEN 0 

ELS 

FOR i=-1 TO £ 
LOCATE myti) ‚me {i)ePRINT bezeichnungst(i) i 
NEXT i 
FOR felder=1 70 hfeider 


LOCATE ay(felder) ‚ax (felder):FRINT inhalt (date,felder) 
NEXT 


WINDON 1,80,1,7:FPAPER G:PEN 1:6L5: PRINT" 


Zum Weitermachen 


druecken Sie irgendeine Taste!" 


28720 
2950 
7840 
ZBS0 
2860 
2870 
2880 
2890 
2700 
2910 
2920 


Fklich alles zu loeschen ist #* 


=730 
2940 
2950 
2960 
2770 


d=FREC""JECALL &BB18 


SDOTO 159 

HERREN laeschen KRERRITKKTHKRHHEHTRE 
MODE 2 : 

LBCATE 29,7:FRINT"Alles loeschen = 1028 
LOCATE 20,9: FRINT"Datensatz Ineschen - 2 -" 


as=INKEYS: IF ag="" THEN 2990 

IF a$<>"1" AND a$s<y"2" THEN ZE80 

IF a$="2" THEN 2940 

CL5 
LOCATE 5,5: PRINT"Wollen Sie wirklich alles ineschen?"s ’*x Rusckfrage, ob wi 
wahl#=INKEY$:IF wahl$="" THEN 2970 


IF UPFERE (wahlg)=ng" THEN ERASE inhalt$,bezeichnungf „ax ‚ay mx my 
GOTG 150 


ELS:LOCATE 6,5: INPUT "Welchen Datensatz wollen Sie ineschen"saf 


IF UPFER$ (a$)="KEINEN" OR URPERE (a8) ="NICHTS® OR. UPFERFLaF)="ENDE" THEN 150 


ELSE datensaetze=VAL las} 2 ax schauen, ob Abbruch od 
er loeschen ## 


2950 
2996 
S000 
3010 
3020 
3050 
3040 
3050 
3040 
3070 
SOB0 
3070 
3100 


inhalt$(datensaetze)=r" 

LOCATE 5,9: PRINT"Noch einen Datensatz Ioeschen?”® 

wahl $=UFPER£(INKEY£)s IF wahl&="" THEN 3000 

IF wahl&="J7" THEN 2960 ELSE 150 

EHRRRTTEHKENIHRERE Hardcopyprogr amm KFERRHÄREERIRNAHRER 
RAHERRNER  veberrommen aus CFÜ 454 intern KAERERNTRR 
NER D AT A BECKER KRAHRKERINKKTERHNN 
s=0:FDOR i=&A1lOO TO SAlGZSREAD Byte:FükE i,byte:r =s5tbytLe:NEXT 
DATA &CD,%78,&BB,822,%64,&A1,8CD,&11 

BATA &BC,&17,&32,%63,&A1,821,%01,&01 

DATA 22 65,1, EIN,E63,EA1,47,SOE 

DATA %14,%05,8E5,20D,%75,&BB,&E1,8CD 

DATA %&0,&BB,&01,&38,802,838,%20,&CD 
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2110 DATA %58,&A1,2ES,%C05,&3E,&42,RCD,&1E 
3120 DATA %BB,&01,&E1,&20,%iD,&24,20D,%20 
2130 DATA %EO,&10,&DC,2ZE,&OD,LCD,%59,&A1 
Z140 DATA &SE,&0A,&CD,&58,Al,E2A, a5, &Al 
Z1S50 DATA A2C,&22,»A6,%A1,87D,&FE,%12,%20 
3160 DATA &02,%2A,%64,%A1,&CD,%75,%&BB,%69 
3170 DATA %C5,%CD,&2E ,&BD,%73,& FE,&CD,%71 
3180 DATA ZBD,&C1,&C07 

Ss IF s<>11865 THEN PRINT"Error in Texthardeopy!":END ELSE RETURN 
3200 RESUME 130 

3210 RESUME 


SZ220 "EHRE nummerisch sortieren KUNHRNHRHaaREner 

3230 IF ASC(MID$ (inhalt#(1) ‚anf (sfelder}+1,laenge (sfelder)))<48 OR ASC tMIDFCinha 
ItF(1},anf (sfelder)+1,laenge (sfelder)}))>57 THEN LOCA 

TE 10,22:PRINT EHR$ (24), "In diesem Feld steht keine Zahl !"SCHRE(ZA4) FOR i=t TOD EZ 
G00:NEXT:50TO 1940 

7240 datensaetze=o 

3250 s=1:0{1}=1:u(l)=hdatensaetze 

3260 ]=0ls}ır=suls)ıs=s-i 

3270 datensaetze=1: j=rcsh$=MID$ (inhalt$ (147) 7/2) ‚anf (sfelder) +1 ,laenge tsfelder)) 


3280 WHILE VAL MIDE (inhalt# (datensaetze} ‚anf (sfelder)+1,laenge (sfelder}) )XVAL(h$- 


? AND datensaetzeir:datensaetzesdatensaetze+l:WEND 

270 WHILE VAL (MIDE tinhalt#1{j) „anf (sfelder)+1,laenge (sfelder)))3VALChF) AND 3rl: 
j=j-i:WEND i Ä 

35006 IF datensaetzei=j THEN inhalts=inhalt$ (datensaetze) :inhalts(datensaetze)=sin 
halt#{j}sinhalt$(j}=inhalt# ELSE 3370 

5510 datensaetze=sdatensaetze+1: ji=j—1 

3320 IF datenssetze{=j THEN 3280 

57350 IF r-datensaetze{=j-1 THEN 3350 

3340 IF i<j THEN s=s5+1l:0(sS’=lıuls)=j 

5350 1=datensaetze:501T0 2380 

3380 IF datensaetze‘r THEN s=5+1:0(s5}=datensaetze:uts)=r 

3270 r=j 

5580 IF r>1 THEN 3770 

‚3390 IF s>»06 THEN 3240 

3400 EOTO 150 

3410 "amttre Datensatz ausgeben xx###* 

3420 FOR felder=1 Tü hfelder 

3430 inhalt#=MID8 (inhalt (datensaetze) ‚anf (felder)+1,laenge (felder)) 

5440 IF inhalt$="" THEN inhalt#+=5FACEr (laenge (felder)) 

>450 LOCATE ay(felder) „ax (felder) PRINT inhalt# 

450 NEXT 

3470 RETURN 

3490 "sank Feld einfuegen xx+r.% 

3490 inhalt$=inhalt$+5PACE$ (laenge (felder))} 

3500 inhalt$ (datensaetze)-LEFT$ (inhalt# (datensaetze) ‚anf (Felder) )+LEFT£(inhalts, 
laenge (felder)-1)+MID$& (inhalt$(datensaetze) ‚anf (feld 


er? +laenge(felder} ‚ABS(LEN (inhalt$ (datensaetze) }- (anf (felder)+laenge (felder}))) 
>510 BOSUB Z4i0 ; 
53520 RETURN 


I 


2330 "WERK Test Filename AsnKaErK 

3540 richtig=o i 

5550 IF LEN(name£})=0 THEN LOCATE Sz11:PFRINT CHREI24 ;"Filename unzulaessig”sCHR# 
(24)3FOR i=i TO 1000: NEXT:RETURN 

5560 IF INSTRinamet,",")<£>0 THEN LOCATE S,11:FRINT CHRF (24); "Filename unzulaessi 
9"; cCHR$ (24): FOR i=1 TO 1000: NEXT=RETURN 

3570 IF INSTR {namef," ")<>6 THEN LOBATE Sz141:FRINT CHR£ (24); "Filename unzulaassi 
g";CHRE(24): FOR i=1 TO I0OO0O:NEXT:RETURN 5 : 

3580 IF INSTR (names, "3 "72:0 THEN IICATE 9,11: FPRINT CHR {24) 3; "Filename 
g"5CHRE{24):FOR i=1 TO 1000: NEXT:RETURN 

3370 IF INSTR (names, "/")<2>G THEN LOCATE 5,11: FRINT UHR (24), "Filename 
g";CHRE& (24) :FOR i=1 TO 1000: NEXT=+RETURN 

300 IF INSTR (names, ".")<50 AND (LEN (namef} >12 OR INSTR(name#,"."}>97) THEN LDEAT 
E 5,11:PRINT CHRE (24); "Filename unzulaessig" zsCHRE (2A 

3:FOR i=1 TO 1000: NEXT:RETURN ELSE 3470 

3610 IF LENtnames)»8 THEN LOCATE 5S,11:FRINT EHR# (24) "Filename unzulsessig";CHRE 
(24}:FOR i=i TO 1000: NEXT=RETURN 
3620 richtig=-1: RETURN 


unzulaessi 


unzulaessi 
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tips & tricks 


Maschinensprache-Routinen, die jeder 
Basic-Programmierer kennen sollte 


Dieses Mal wollen wir uns mit eini- 
gen komplizierteren Tips & Tricks, die 
nicht nur einen einfachen CALL er- 
fordern, sondern zu deren Nutzung 
komplexe Operationen .notwendig 
sind, befassen. Viele User fragen sich 
verzweifelt, wo die von Schneider zu- 
gesagten 32 definierbaren Funktions- 
tasten zu finden sind. 
Nun, die Antwort ist einfach: Es gibt 
sie in dieser Form nicht. Es gibt nur 
32 spezielle Zeichencodes, die bei 
Eingabe über die Tastatur zu soge- 
nannten „Erweiterungsstrings" erwei- 
tert werden. Die angesprochenen Co- 
des liegen im Bereich zwischen 128 
und 159, wobei die Zeichenfolgen 
128 bis einschließlich 140 bereits auf 
die Tasten des Zehnerblocks gelegt 
Sind. Sie enthalten im allgemeinen 
nur ein Zeichen, nämlich die Ziffern 
1-9, den Dezimalpunkt, ein 
CHRS(13) („Carriage Return", die 
keine Enter-Taste). Einzige Ausnah- 
me bildet der Code 140. Er ist mit 5 
I: Zeichen belegt, nämlich der Zeichen- 
folge RUN + CHR$(13). Man er- 
reicht ihn über die Tastenkombina- 
tion CTRL+Enter. 
Hier kann man auch schon erkennen, 
wie man die ungenutzten Codes von 
141.bis 159 benutzen kann: Man legt 
sie mit Hilfe des KEY DEF-Kom- 
| mandos als Drittfunktionen auf die 
ı . Tasten des. alphanumerischen 
Blocks. 
Ein Beispiel: KEY 141, „List 
KEY DEF 36,1,108,76,141 legt das 
Befehlswort „LIST“ auf die Tasten- 
kombination GTRL+,L. Im ersten 
Kommando wird dem Code 141 das 
Keyword „LIST“ zugeordnet. Im 
zweiten Befehl wird die Taste „L" 
umdefiniert. Dabei steht die 36 für die 


Taste, die 1 legt Autorepeat für die 


Taste fest, 108 ist der Code für ein 
kleines und 76 der Code für ein gro- 
Bes L. Die 141 ordnet der Taste 
endlich unseren Erweiterungsring der 


Taste als Drittfunktion zu. Auf diese 
Art und Weise kann man sich theore- 
tisch den gesamten Befehlssatz auf 


die Tastatur legen, dabei kommt es 


jedoch zu einem weiteren Problem, 
Die Länge aller Erweiterungsstrings 
darf nicht größer als 128 Zeichen 


. sein. (Im Handbuch stehen 100 Zei- 


chen - am besten vergessen.) Falls 
man aiso längere Funktionen auf die 
Tasten legen will, kann es zu Proble- 
men kommen. Doch glücklicherweise 
kann man auch diesem Problem bei- 
kommen: Man kann den Puffer ver- 
hältnismäßig einfach erweitern. 
Hierzu dient folgende kurze Assem- 
blerroutine: 

Id de, Anfangsadresse 

Id hi, Neue Länge 

ip KM EXP PUFFER; Eigentlich 
CALL EXP PUFFER RET 


Die Einsprungadresse für KM EXP. 


PUFER ist &H BB15. 

Hier ein konkretes Beispiel, einge- 
bunden in ein dokumentiertes Basic- 
Programm: 

10 IF PEEK (HIMEM+1)=&11 
THEN END - Routine darf nur ein- 
mal abgerufen werden 

20 MEMORY HIMEM-510 - HI- 
MEM neu setzen 

30 anfadr=HIMEM-+1 - Anfangs- 
adresse des Codeteiles festlegen 


40 FOR f=anfadr TO anfadr+8:RE- 


AD a: POKE f, aNEXT - Code 
einlesen 

50 CALL anfadı - Aufruf eines Code- 
teiles 

60 DATA &11,&BA,&A9,821,8&F4, 
&01, @ Opcodes für das Assembler- 
Programm 

&03,815,&BB 

Dieses Programm iegt einen Puffer 
mit einer Länge von 500 Bytes unter- 
halb der alten Obergrenze des Basic- 
Speichers an. 

Wenn man die Routine selber ver- 
wenden muß, hat man einige Dinge 
zu beachten, Zum einen muß der 
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Puffer für die Erweiterungsstrings so 
groß sein, daß alle bis dahin definier- 
ten Strings Platz haben. Für die von 
Anfang an definierten Funktionen 
müssen mindestens 44 Bytes vorge- 
sehen werden. Wenn der neue Puffer 
zu klein wäre, wird er nicht angelegt. 
Des weiteren darf der Puffer nur im 
zentralen 32K-Bereich liegen, d. h., er 


darf nicht von einem ROM überlagert | 


werden. 

Eine weitere Routine, die auch für 
den Basic-Programmierer interessant 
ist, ist die Routine KM GET STATE. 
Über sie erfährt man den Zustand | 
von Caps Lock und Shift Lock. Nach 
Aufruf dieser Routine (Einsprung- 
adresse: &H BB21) stehen die Zu- | 
stände von Caps und Shift Lock im 
H- und im L-Register. Da diese von 
Basic aus nicht abzufragen sind, hier 
wieder ein kurzes Programm: 

10 MEMORY 43880: FOR f=43880 
TO 43894:READ a:POKE ta: NEXT 
20 DATA &CD,&21,&BB,&3E ‚01, 
&A4, 

&67, R3E 802,8A5,8B4,B32.87E, 
&AB,&C9. 

Nachdem die Routine durch minde- 
stens einmaliges Aufrufen des Basic- 
Programmes im Speicher abgelegt 
worden ist, kann man die Zustände 
von Caps und Shift Lock nach jedem 
CALL 43880 in der Speicherzelle: 
ablesen. 

PRINT PEEK(43902) ergibt dabei 
folgende Werte: 

D - weder Caps- noch Shift Lock 
sind gesetzt 

1 - nur Caps Lock 

2 - nur Shift Lock 


"3 - sowohl Gaps als auch Shift ok 


sind gesetzt. 

Zwar ist auch diese Routine theore- 
tisch voll relokatibel, die Abfrage muß 
aber immer über die Adresse 43902 
erfolgen, sofern die entsprechenden 
Opcodes nicht vorher modifiziert wer- 
den. 
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. Zur Abwechslung eine einfache Sy- 


: stemroutine: CALL &BBA4E ruft die | 


Routine TXT INITIALISE auf. Die- 

|. se setzt alle Windows auf Normgrö- 
Be, wählt automatisch PEN 1 und 
INK O, führt die Funktion TAGOFF 

|. durch und setzt den Cursor in die 
linke obere Ecke des Bildschirms. 


Viele Schneider-Besitzer wundern 
sich, daß der Bildschirm nicht über 
einen einfacher Basic-Befehl abzu- 
fragen ist, zumal die Abfrage auch 
einem erfahrenen Programmierer im- 
mer noch schwer fällt. 


Das Fehlen dieses Befehls verwun- 

“dert noch mehr, wenn man erfährt, 
daß eine solche Routine im ROM 
des GPC-464 vorhanden ist, die 
beim neuen GPC-464 zu genau die- 
sem Zweck verwendet wird. 









CPC-464 
‚Inside Out 


Ein Buch für alle 
. CPC-464-Programmierer 















In diesem Buch werden die wichtig- 
sten Abläufe und Funktionen im Be- 
triebssystem des Schneider GPC- 
464 und seinem dazugehörigen 

: BASIC erklärt. Der Autor dieses 
Werks, Winfried Huslik, hat es sich 
zur Aufgabe gemacht, eine Vielzahl 







rung für alle Schneider-Computer- 
Besitzer aufzuzeigen. Dabei wird na-- 
.}: türlich auch eine Vielzahl von Tips 
‚ erwähnt. Bei .der Erklärung der 
- ROM-Listings hat sich der Autor der 
“ englischen Sprache, der eigentlichen 
Computersprache, bedient. Einge- 
- fteischte Programmierer werden mit 
den Erläuterungen in Englisch wahr- 
scheinlich keine größeren Probleme 
haben. Der Anfänger wird jedoch 
nicht immer sofort verstehen, was im 
| einzelnen gemeint ist. Trotz dieses 
i kleinen Mankos halten wir dieses 
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von Möglichkeiten der Programmie- 








Wie dem auch sei, beim CPCG-464 
fehlt diese Funktion noch. Um sie 
trotzdem dem Basic- a RES 
zugänglich zu machen, dient folgen- 
des Programm: 


10 IF PEEK(HIMEM+1)=&CD 
THEN END 

20 MEMORY HIMEM - 20:an- 
fadr=HIMEM+1 

30 FOR : f=anfad TO an- 
fadr+15:READ a:POKE La: NEXT 

40 PRINT anfadr 

50 DATA &CD,860,&BB,&D2,802, 
&A8,8&32,87D,&AB,&C9,&3E,&00, 

&32,&7D,&AB,&C9. 


Nachdem die Routine durch einmali- 
gen Aufruf des Basic-Programms im 
Speicher abgelegt worden ist, kann 
sie auf folgende Weise benutzt wer- . 
den: LOCATE X,Y:CALL anfadr: 


Buch für hervorragend, können es im 


Prinzip jedem Schneider-Anwender 


empfehlen, Es ist ein Nachschlage- 


Das Maschinensprachebuch zum CPC-464 
'von Holger Dullin und Hardy Straßenburg 


Der Schneider CPC 464 verfügt 
nach Meinung der Autoren dieses 
Buches über ein hervorragendes BA- 
SIG. Trotzdem haben Sie sich ent- 
schlossen, ein Buch über die Ma- 
schinenprogrammierung zu schrei- 
ben, da in diesem Bereich zur Zeit 
noch sehr wenig Informationen vor- 
handen sind. 


Die Programmierung in Maschinen- 
sprache bringt einige entscheidende 


Vorteile in Bezug auf Geschwindig- 


keit und Speicherbedarf gegenüber 
BASIC mit sich. Das Programmieren 


| und Erlernen der Maschinensprache 


ist aber gar nicht so einfach. Legen 
Sie deshalb das Buch nicht gleich 


Maus der Hand und sagen Sie, das 


werde ich nie erlernen. - 
Gehen Sie einfach nach folgenden 
Gesichtspunkten vor: 
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werk, auf das jeder ernsthafte Pro- 
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PRINT PEEK(43901). 

Dabei sind X und Y die Koordinaleri 
der abzufragenden Bildschirmposi- 
tion und anfadr ist die Anfangsadres- 
se des Maschinenprogramms. 
PEEK(43901) ergibt den ASGII- 
Code des erkannten Zeichens, Sollte 
kein gültiges Zeichen erkannt worden 
‚sein, was 2. B. auf Verfälschung eines 
Zeichens durch Verwendung von 
Graphikbefehlen zurückzuführen sein 
kann, enthält die Speicherstelle den 
Wert Null. 

Zum Abschluß noch einfache Routi- 
ne, die die Verwendung von inversen 
Zeichen als Stimittel erleichtert: 
CALL &BB9C vertauscht PAPER 
und PEN des aktuellen Textfensters, 
entspricht also der Funktion „IN- 
VERSE 1° auf dem Spectrum. 
Nochmaliges Aufrufen der Routine j 
hebt den Effekt natürlich wieder auf. 


grammierer nicht verzichten sollte. 


EDV-Buchverlag Augsburg, ISBN 
3-925159-002, Preis 59,- DM 






- Arbeiten Sie das Buch Kapitel für 
Kapitel durch 4 
- Versuchen Sie, die Aufgaben zu 
lösen 
- Fällt Ihnen die Lösung der Aufga- 
ben schwer, arbeiten Sie das Kapi- 
tel ruhig noch einmal durch 
Von den Grundlagen der Maschi- 
nenspracheprogrammierung über die 
Arbeitsweise des Z-B0-Prozessors 
und einer genauen Beschreibung sei- 
ner Befehle bis zur Benutzung von 
Systemroutinen ist alles ausführlich 
und mit vielen Beispielen erklärt. 
Weiterhin sind Assembler, Disassem- 
bler und. Monitor als komplette An- 
wenderprogramme. 
So wird der Einstieg in die Maschi- 
nensprache leichtgemacht! 
Data-Becker GmbH, Düsseldorf, 
ISBN 3-89011-070-3, Preis 39,- 
DM 











Wir bieten Ihnen Software zu einem 
supergünstigen Preis. Alle Program- 
me aus unserer Besteltiste sind sofort 
lieferbar. Füllen Sie nur den Bestell- 
coupon mit den entsprechenden Da- 
ten aus und Sie erhalten innerhalb 


nur 1 Woche 


Ihre Lieferung. Beachten Sie bitte 
. unser neues Angebot. 

Ab sofort können alle Schneider-Pro- 
gramme auch. auf Diskette bestellt 












Spitzen-Software ' 
für alle Commodore- und Schneide 


- Computer 


werden. Geben Sie bei Ihrer Bestel- . 


lung die genaue Bestellnummer an. 
Wollen Sie sich unnötigen Schreib- 
kram ersparen, wählen Sie einfach 
ER Tel-Nr. 05651/40643 
N oder 4.06 93 

Wir nehmen Ihre Bestellung gern ent- 
gegen. 


Achtung: Der Preis pro Kassette 
von 16,- DM gilt nur mit Einsen- 
dung (Quittung) des Bestellcou- 


DE TEN Eeipan le) BU DM 
Füllen Sie den Bestellcoupon aus und senden ihn an: 
Tronic-Verlag GmbH, Postfach 41, 3444 Wehretal 1 


a 






Bitte beachten Sie: 
Sie ersparen sich zusätzliche 
Kosten (bis zu DM 5,-), wenn 
| Sie per Vorkasse (bar, Verrech- 

nungsscheck) bestelien. | 
| Ausland: 

® Besiellungen nur gegen 
| Vorkasse! 


















Aus diesem Heft: 


Commodore 
Bestell-Nr. COM CK 3/1 16,- DM 
Bestell-Nr. COM CD 3/1 20,- DM 


Schneider 
Bestell-Nr. COM SK 3/1 16,- DM 
Bestell-Nr. COM SD 3/1 39,- DM 





innerhalb von 1 Woche 


Bitte liefern Sie mir: 


Name Vorname 





PLZ On 


82 





“Compute mit“ Software-Service * 


Die Zustellung erfolgt: gegen Vorkasse DI 


Heft 6/85 


Commodore Kassette 
Bestell-Nr. COM C 2/1 16,- DM 
Bestell-Nr. COM D 2/1 20,- DM 


- Schneider Kassette 


Bestell-Nr. COM S 2/1 16,- DM 


“oder 


Auslandslieferungen nur gegen Vorkasse 


Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 
[] Kassette für 


[1 Diskette für 


Besleil-Nr. 


Bestell-Nr. 


zum Preis von gesamt 


Straße, Nr. 


Datum, Unlersehriit 


Compure mib 





Bestellcoupon * “Compute mit“ Software-Service 


per Nachnahme Ye Versandkosten 


Heft 5/85 
Commodore Kassette . 


Bestell-Nr. COM C 1/1 16,- DM 
Bestell-Nr. COM D 1/1 20,- DM 


Schneider Kassette > 
Bestell-Nr. COM S 1/1 16,- DM 







[3 Anzahl: 
U] Anzahl 
DM 
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Commodore 64 


. Mauern/Widerstand, Kassette 8,- 
DM, Diskette 15,- DM, Bestell-Nr. 
c4 


Space-Comets/Erdspalte/ Sprite- 
Data, Kassette 15,- DM, Diskette 
: 23,50 DM, Bestell-Nr. C 51 


- Autostart/Bestellschein/ Roadpain- 
ter, Kassette 16,50 DM, Diskette 
2350 DM, Bestell-Nr. C 61 


Hardcopy/Space-Fighter/Data-Ge- 
nerator, Kassette 15,50 DM, Disket- 
te 19,50 DM, Bestell-Nr. C 71 


Monster-Attack/Block-Painter/Ep- 
.. son-Drucker, Kassette 16,50 DM, 
Diskette 23,50 DM, Bestell-Nr. G 81 


Projekt/Datenbank, Kassette 16,- . 


DM, Diskette 23,50 DM, Bestell-Nr, 
691 


Spiders/The Basic, Kassette 16,50, 
Diskette. 23,50 DM, Besteli-Nr. 
6 101 


High Noon/ Skeet/ Grafik-Designer, 
Kassette 17,50 DM, Diskette 23,50 
DM, Bestell-Nr. C 121 


| Painter/Star-Baddle/Editor, Kasset- 
- te 17,50 DM, Diskette 23:50 DM, 
Bestell-Nr. G 22 


Wüstenrallye/Jet-Pac/Black Moore 
Castle, Kassette 17,50 DM, Diskette 
| 23,50 DM, Bestell-Nr. C 32 


Brieftaube, Cadelon, Kassette 19,50 
DM, Diskette 24,50 DM, Bestell-Nr. 
C4 ' 


Multi-Key/$-Tool 64/Interrupt-Pro- 
gramme, Kassette 16,- DM, Diskette 
| 21,- DM, Bestell-Nr. UC 2/85 


Spritehilfe/ Diskloader/Directory, 
Diskette 21,- DM, Bestell-Nr. UC 
3/85 


Tape-Directory/Asmon/Data-Gene- 
rator, Kassette 15,- DM, Diskette 
21,- DM, Besteil-Nr. UC 3/85 


Fast-Load, Kassette 10,- DM, Be- 
stell-Nr. UC 4/85  . 


7185 


software-service_ 


Diskmonitor/Zeichensatz, Diskette 


20,- DM, Bestell-Nr. UC 5/85 


Reassembler/Maskengenerator Kas- 
sette 15,- DM, Diskette 20,- DM, 
Bestell-Nr. UC 6/85 


Reactor, Concentration, Datenbank, 
Kassette 17,50 DM, Diskette 23,50 
DM, Bestell-Nr. HC/C-1 


Wartords Caverns of Death, Kassette 
14,50 DM, Diskette 19,50 DM, Be- 
stell-Nr. HG/C-2 


Alien-Destroyer, Duell, Kassette 
24,50 DM, Diskette 29,50 DM, Be- 
steli-Nr. HG/C-3 


Ocean Game, Tennis, Kassette 
17,50 DM, Diskette 23,50 DM, Be- 
stell-Nr. HG/C-4 


VC-20 


Bestellschein/Glücky, Kassette 8,50 
on Diskette 15,- DM, Bestell-Nr. 


Multigraph/All Rammer, Kassette 
11,- DM, Diskette 15,50 DM, Be- 
steli-Nr. V 71 


Zyklo/Meteorit, Kassette 11,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 81 


Garten/Schloß Gruselstein, Kassette 
14,- DM, Diskette 19,50 DM, Be- 
stel-Nr.V91 


Fressman/Outlaw, Kassette 14,- 
H el 19,50 DM, Bestell-Nr. 


Prost/Buffalo Bill, Kassette 14,- 
ne Diskette 19,50 DM, Bestell-Nr. 
121 


Joy Man/Powerpack, Kassette 14,- 
DM, Diskette 19,50 DM, Bestell-Nr. 
v22 


Der rasende Malocher/Frankie goe 
to Pharao, Kassette 14,-— DM, Dis- 
kette 19,50 DM, Bestell-Nr, V 32 


Compute mik 


Matron, Obst, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell-Nr. V 42 


Zyklo, Geldsammler, Kassette 11,50 
DM, Bestell-Nr. HG/V-1 


Star-Wars, Punktefresser, Kassette 
14,50 DM, Bestell-Nr. HG/V-2 


Catch the Fish, Mister Jump, Kas- 
sette 14,50 DM, Bestell-Nr. HC/V-3 


Ghosts Eggs, Fox Hunt, Kassette 
14,50 DM, Bestell-Nr. HC/V-4 


Sprites/Space-Battle, Kassette 13,- 
DM, Diskette 19,- DM, Bestell-Nr. 
UV 2/85 


Grafik-Painter, Kassette 10-- DM, 
Bestell-Nr. UV 5/85 


VIC-Clock, Kassette 9,- DM, Be- 
stell-Nr. UV 6/85 


‚Schneider CPC-464 


Autorennen, Kassette 11,- DM, Be- 
stell-Nr. US 3/85 


Universal-Datai V1, Kassette 9,- 
DM, Bestell-Nr. US 4/85 


Computerschrift/Symbol-Swap, . 
Kassette 10,- DM, Bestell-Nr. 
US 5/85 


Aladin, Kassette 9- DM, Bestell-Nr. 
US 6/85 


Fallschirmspringer, Kassette 9,- 
DM, Bestell-Nr. HG/SR-3 


Geisterschloß, Kassette 9,- DM, Be- 
stell-Nr. HC/SR-4 


Super-Miner, Kassette 14,- DM, 
Bestell-Nr. SR 14 
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"NEVER ' FORGETS? 


Jetzt. gibt es neben dem 1. Gewinn, der überragenden Qualität 
der "ELEPHANT“Floppy-Disk, noch einen triftigen Grund mehr, 
schnell Ihren "ELEPHANT“Händler aufzusuchen: ein Puzzie-Spiel, 
das Ihnen einen schönen Extra-Gewinn einbringen kann. Was es zu 
gewinnen gibt, steht auf dem fertigen Puzzlel 
Also nichts wie hin zu Ihren "ELEPHANT“Spezialisten. 


ELEPHANT NEVER FORGETS. 


MARCOM Computerzubehör GmbH 
Pogbielskistraße 321, 3000 Hannover 51, Tet. (05 11) 64 7420 


Frankreich; Soroclass, 8, Aue Montaotfier -9315, Rosny-Sous-Bais, Tel.: 16 (1 8595-73-70 
Groähritannien: Dennison Mfg. Co. Ltd, Cotontal Way, Watford WD2 AUY, Tel: 0923 41244, Teiex: 923321 
Weiteres Ausland: Dennison International Cornpany, 4006 Erkrath 1, Matihias-Claudius-Straße 9, Telex: 858 6609 
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